Select Code to Download

%a = ( A=>0, B=>1, C=>2 );
%b = %a;
print each %b, "\n";
{ local %b = %a; each %b; }
while(($k,$v)=each %b) { print $k, $v, "\n" }

%h = ( A=>0, B=>1, C=>2 );
print each %h, "\n";
() = %h;
print each %h, "\n";