my @results= m/ ... /;
my $ID= shift @results;
$hash{$ID}= [@results];