Select Code to Download

my %cats;
while (my $pointer = $sth->fetchrow_hashref) {
...
for my $category (keys %cats) {
    print "$category\n";
}