Help for this page

Select Code to Download

Select or download this

BEGIN {
  my ($var1, $var2, $var3);
...
  sub array1 { wantarray ? @array1 : \@array1 }
  sub hash1 { wantarray ? %hash1 : \%hash1 }
}