my %sorted;
   foreach my $item (@array) {
     my ($prefix) = $item =~ /^(\w+)/;
     push @{$sorted{$prefix}}, $item;
   }