my %reverse = reverse %languages;
print $languages{$key} || $reverse{$key};