Help for this page
... if (exists $arrayin[0] && $arrayin[0] eq "Spanish_LatinAmerica +n|es_MX") { $spanishword = trim( $arrayin[1] ); }
use Data::Dumper; print Dumper \%langhash;