http://qs321.pair.com?node_id=66903


in reply to grepping

No grep required. 
my %h;
@h{@data2} = ();
delete @h{@data};
my @ids = keys %h;

[download]

In Section Seekers of Perl Wisdom