foreach my $prefix (keys %sorted) {
     my @items = @{$sorted{$prefix}};
     # do something with @items...
   }