Select Code to Download

my %hash;
my $condition = sub { ! exists $hash{key} };
...
if ($condition->()) {
    print "'key' does not exists in \%hash\n";
}