Help for this page

Select Code to Download


  1. or download this
    ## UNTESTED
    use Data::Dumper;
    ...
      push(@{$cats{$cat}},$word);
    }
    print Dumper \%cats;