Help for this page

Select Code to Download


  1. or download this
    sub foo {
    while (@_) {
...

my @array = (a=>1, b=>2, c=>3);
foo(@array);
  2. or download this
    my ($var, $val);
for (($var, $val) = each %{@_}) {
    print "var = $var; val = $val\n";
}
  3. or download this
    Bizarre copy of ARRAY in leave at arrays.pl line 14, <IN> chunk 5.