my $wanted = 'a';
my ($country) = grep{ $landab{$_} eq $wanted }keys %landab