Select Code to Download

my %hash = ( foo => 1, bar => 2, baz => 3 );
print "@{[%hash]}";

print((reduce { $a . ($$...$$ ? ' => ' : ',') . $b } %hash), $/);