while (<FH>) {
  my ($webaddress, $sitename, $sitedesc, $category) = split "\t";
  my @cc = ($webaddress, $sitename, $sitedesc);
  push @{ $sortmenu{$category} }, [$webaddress, $sitename, $sitedesc];
}
close FH;