Help for this page

Select Code to Download


  1. or download this
    for my $key(keys %HoL) {
  &{$HoL{$key}[0]};
}
  2. or download this
        print "$key -> ", &{$HoL{$key}->{$i}}, "\n";
    print "$key -> @{[ &{$HoL{$key}->{$i}} ]}\n"; # voodoo!