Select Code to Download

$h{1, 2} = "hello";

my %h;
$h{1, 2} = "hello";
$Data::Dumper::Useqq = 1;
print Dumper \%h;

$SUBSCRIPT_SEPARATOR
$SUBSEP
...
        it really means

            $foo{join($;, $a, $b, $c)}