Select Code to Download

foreach my $category (sort keys %sortmenu) {
   foreach my $record (@{ $sortmenu{$category} }) {
...
      print "\n";
   }
}

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