Select Code to Download

use Data::Dumper;
use strict;
...
}

print Dumper \%h;

$VAR1 = {
          'foo' => 2
...
$VAR1 = {
          'foo' => 1
        };