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