if ($line =~ /\b(?:BLUBB|BLUBBER)\b/){  
  push @data,[@array];