my %linecontainsbuf=();
while ($line = <BUFFER>) {
       @fields=split /\'/,$line;
       $searchfield=$fields[1];
       $linecontainsbuf{$searchfield} = $line for @validbufs;
                   }

foreach $validbuf (@validbufs) {
        print $linecontainsbuf{$validbuf};
                               };