my $block = {
      my $v = %hash{$^key};
      say "The lookup {%hash{$^key}} yields $v";
};