Help for this page

Select Code to Download


  1. or download this
    use strict;
use Data::Dumper;
...
                   5
                 ]
        };
  2. or download this
    ...
for (0..$#arr) { $fruits{$arr[$_]->[0]} = $arr[$_]->[1] }
...
          '1' => 2,
          '3' => 5
        };
  3. or download this
    ...
for (0..$#arr) { $fruits{$arr[$_]->[0]} = [@{$arr[$_]}[1..@{$arr[$_]}-
+1]] }
...