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