in reply to grep fields

Is this what you mean?

push(@goodrecs, @rec) if ($rec[2] =~ /$that/);

dave

In Section Seekers of Perl Wisdom