Select Code to Download

$ cat foo.pl
#!/usr/bin/perl
...
@{$$hr{KEY11}}{qw(a b)} = @{$$hr{KEY12}}{qw(c d)};

print Dumper($hr);

$ perl foo.pl
$VAR1 = {
...
                       'd' => 4
                     }
        };