if ($line !~ /\bSAND\b/){
    push @data,[@array];
}