Help for this page

Select Code to Download


  1. or download this
    my %h = (one=>2,three=>4,five=>6,seven=>8,nine=>0);
print "$_\n" for (@h{qw/five nine one seven three/})'
  2. or download this
    6
0
2
8
4
  3. or download this
    my %h = (one=>2,three=>4,five=>6,seven=>8,nine=>0);
print "$_ => $h{$_}\n" for (qw/five nine one seven three/);
  4. or download this
    five => 6
nine => 0
one => 2
seven => 8
three => 4