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