my @winners = grep /prefix$part/, @list;

##</code><code>##

while (<>) {
  next unless /prefix$part/;
 ...
}