Select Code to Download

use Data::Dump;

...
while ( my ($hk,$hv) = each %$hash ) {
    print "$hk" if  $pat ~~ $hv->{member};
}

{
  4  => { member => [1 .. 4, 1 .. 4] },
...
8
10
9