Help for this page

Select Code to Download


  1. or download this
    %foo = ( a => 1, b => 2, c => 3 };

...
  my %x = shift;
...
}
  2. or download this
    my %foo = ( a => 1, b => 2, c => 3 );

...
    print "$_ -> $x{$_}\n";
  }
}
  3. or download this
    my %foo = ( a => 1, b => 2, c => 3 );

...
    print "$_ -> $x{$_}\n";
  }
}
  4. or download this
    my %foo = ( a => 1, b => 2, c => 3 );

...
    print "$_ -> $x{$_}\n";
  }
}