Help for this page

Select Code to Download


  1. or download this
    my %DATA = (3 => {});

put_element($DATA{3}, ...);
  2. or download this
    my %DATA = (3 => {});

put_element($DATA{42}, ...);
  3. or download this
    sub test1 {
  my $val = shift;
...

test1($a); # $a continues to be 3.
test2($b); # $b is 5 now.