Select Code to Download

while ($linein = <FILEIN2>) {
    chomp $linein;
...
        $langhash{$spanishword} = $englishword;
    }
}

while (<FILEIN2>)
{
...
        $langhash{$spanishword} = $englishword;
    }
}