Select Code to Download

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