задано / когда: как проверить хеш-значение с $ _ в качестве ключа для правильности

Question

Есть ли другой способ проверить хэш-значение в четвертом «когда» на достоверность?

#!/usr/local/bin/perl
use warnings;
use 5.012;

my %hash;
$hash{one} = 0;
$hash{two} = 2;
$hash{three} = 0;

print ": ";
my $aw = <>;
chomp $aw;

given ( $aw ) {
    when ( 'cat' ) { say '$aw eq cat' }
    when ( 'mouse' ) { say '$aw eq mouse' }
    when ( 'sheep' ) { say '$aw eq sheep' }
    when ( !( !$hash{$_} ) ) { say '$hash{$_} is true' } ###
    default { say 'something else' }
}

Answer 1

Ну, я бы просто использовал более короткое:

when ( !!$hash{ $_ } ) { ... }

но да, вот и все.

Answer 2

when (%hash) { ... };

Это умный матч в конце концов!