Select Code to Download

 my %f = 1 .. 4;
 my $o = %f;
die $o;
__END__
2/8 at - line 3.

my %HOH = (
    1 => {
        key1 => 'value1',
...
        key3 => 'value3',
    },
);