Select Code to Download

my @keys = qw( a b c d );
my %h = ( b => 'b' );
...

print Dumper \%h;
print Dumper \@found

$VAR1 = {
          'b' => 'b'
...
$VAR1 = [
          'b'
        ];