my %hoa;
s/^([a-z])_// and push @{$hoa{$1}}, $_ for @temp;