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

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Basically I want to list all ids from @data2 that aren't in @data. Here's my attempt.

foreach (@data) { ($id,$var2,$var3,$var4,$var5) = split( /,/, $_); $id = grep { m/$id$/ } @data2; print "This $id was not found.\n"; }