Help for this page
Select Code to Download
Select
or
download this
++@h{@a,@b,@c,@d};
Select
or
download this
while ( my ($k, $v) = each %h ) { print "$k:$v.\n"; }