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