while ($linein = <FILEIN2>) {
    chomp $linein;
    @arrayin = split /:/, $linein;

    if (exists $arrayin[0] && $arrayin[0] eq "Default")
    {
        $englishword = trim( $arrayin[1] );
    }
    if (exists $arrayin[0] && $arrayin[0] eq "Spanish_LatinAmerican|es_MX")
    {
        $spanishword = trim( $arrayin[1] );
    }
    if (exists $arrayin[0] && $arrayin[0] eq "Spanish_LatinAmerican|es_MX")
    {        
        $langhash{$spanishword} = $englishword;
    }
}

##</code><code>##

while (<FILEIN2>)
{
    next unless ( /.:\s*\S/ );  # necessary/sufficient condition for what follows

    my ( $lang, $text ) = split /:/, $_, 2;
    if ( $lang eq "Default" )
    {
        $englishword = trim( $text ); # takes care of chomping
    }
    elsif ( $lang eq "Spanish_LatinAmerican|es_MX" )
    {
        $spanishword = trim( $text );
        $langhash{$spanishword} = $englishword;
    }
}