Personally, I would think of this as an Item Catalog or Item Categories. Category 1 has a few items in it, Category 2 also. With this one-to-many relationship in mind, you could create a hash of arrays.

use strict;
my %HoA;
$HoA{0} = [ qw( corkscrews openers toppers ) ];
$HoA{1} = [ qw( glassware stemware tableware ) ];

# From there, sorting the keys is easy, the values is more complex.

foreach my $category (sort keys %HoA) {
   print "Category $category contains:\n";
   foreach my $houseware (sort {$a cmp $b} @{ HoA{$category} } ) {
     print ">>$houseware\n";
     }
   }
[download]