Select Code to Download

use strict;
use warnings;
...
} @interesting_keys;

print Dumper(\%small_hash);

my %small_hash =
        map { $_ => $hash{$_} }
        grep { $hash{$_} }
        @interesting_keys;

$VAR1 = {
          'a' => 1
        };