foreach my $category (sort keys %sortmenu) {
   foreach my $record (@{ $sortmenu{$category} }) {
      print "web address: $record->[0]\n";
      print "site name:   $record->[1]\n";
      print "site desc:   $record->[2]\n";
      print "\n";
   }
}

##</code><code>##

use Data::Dumper;
print(Dumper(\%sortmenu));