Select Code to Download

--- New                --- Internally
¥hr                ==  $hr
...
keys ¥hr{k1}{k2}   ==  keys %{ $hr->{k1}{k2} }
print €ar[1]       ==  print $ar->[1]
print @€ar[1]      ==  print @{ $ar->[1] }

 
sub foo {
  return ( [], {} ) 
}
my (€ar,¥hr) = foo();