Select Code to Download

my $r1 = [ { foo => 'baz', bar => 'qux' } ];

my %h = ( foo => 'baz', bar => 'qux' ); 
my $r2 = [ \%h ];