Try this. Untested. $t->start('transforming2'); my $i; for(@list) { $i = $_->{'info'}; push @info, $i; push @{$hash{$i}}, $_; } @found3 = map pop @{$hash{$_}}, amatch('3456', @info); $t->stop;
-- Regards, Aristotle
Try this. Untested. $t->start('transforming2'); my $i; for(@list) { $i = $_->{'info'}; push @info, $i; push @{$hash{$i}}, $_; } @found3 = map pop @{$hash{$_}}, amatch('3456', @info); $t->stop;
-- Regards, Aristotle