while ( my( $key, $val ) = each %landab ) {
    print "$key\n" if $val eq 'a';
}