Select Code to Download

use Data::Dumper;
my %s=('key',1);
my $s=\$s{'key'};
print Dumper([\%s, $s])

$VAR1 = [
          {
...
          },
          \$VAR1->[0]{'key'}
        ];