Help for this page

Select Code to Download


  1. or download this
    while (@ref) {
  my $k = shift(@ref);
  $out{$k} = [ shift(@ref), shift(@ref) ];
}
  2. or download this
    while (@ref) {
  $out{$_} = [ shift(@ref), shift(@ref) ] for shift(@ref);
}
  3. or download this
    push @{ $out{shift(@ref)} }, shift(@ref) while (@ref);