my %validbufs = map { $_ => 1 } @validbufs;
while ($line = <BUFFER>) {
       $searchfield=(split /\'/,$line)[1];
       print $line if $validbufs{$searchfield}
}