Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
print "\n";
print "$_->[0] => $_->[1]\n"
    for map {[$_ => \$_]} @ary;
  2. or download this
    one => SCALAR(0x80f57ac)
foo => SCALAR(0x80f58a8)
...
too => SCALAR(0x80ff6c4)
many => SCALAR(0x80ff6d0)
foos => SCALAR(0x80ff6dc)