Help for this page

Select Code to Download


  1. or download this
    use strict;
use Data::Dumper;
...
%hash = (key1 => [1],
         key2 => [1],
         key3 => [1]);
  2. or download this
             
push(@{$hash{key2}},4);
...
push(@{$hash{key2}},9);
push(@{$hash{key3}},2);
  3. or download this
    foreach (hash key){
  my $last_one = pop(@{$hash{$_}}); 
...
key2 9
key3 8
key1 1