Help for this page

Select Code to Download


  1. or download this
    %goodhash = (
         red   => '1',
...
@colors = qw(red blue green);

print $fh join("|", @hash{@colors}), "\n"
  2. or download this
    $evilhash{$id} = {
                 red   => '1',
...
};

@colors = qw(red blue green);
  3. or download this
    print $fh join("|", @evilhash{$id}{@colors}), "\n"

or this @{$evilhash{$id}}{@colors}