for (my $i = 0; $i < $#eng; $i++) {
                        if (exists $Translated{$file}->{$i}) {
                                push @toWrite, $Translated{$file}->{$i}."\n";
                                delete $Translated{$file}->{$i};
                        } else {
                                push @toWrite, $eng[$i];
                        }
                }
                foreach (keys %{$Translated{$file}}) {
                        push @toWrite, $Translated{$file}->{$_}."\n";
                }