Re: grep too slow

[A. Pagaltzis]

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