Select Code to Download

use strict;
use warnings;
...
my @a  = ( +FOO, FOO);

print(Dumper(\%h1, \%h2, \@a), $h2{+FOO}, "\n");

$VAR1 = {
          'FOO' => 'the value',
...
          'the FOO key'
        ];
the value