my %Categories = (
   cat1 => [
      'a', 'b', 'c',
   ],
# etc...
);

foreach my $sub_category (sort keys %Categories) {
   print $sub_category, $/;
   foreach my $value (@{$Categories{$sub_category}}) {
      print "\t$value\n";
   }
}

__END__