Just filter when you are reading in your data.

open(INF,"products") || dienice("Can't open productsDB: $!"); 
while(<>) {
 chomp;
 my ($productId,$nmPrice,$mPrice,$itemName,$shortdesc,$image,$address)
+ = split/\|+/;
  print qq~ $itemName, $nmPrice ~; if $productId =~ /^B00/;
}
close INF;
[download]

T I M T O W T D I