if ($line =~ /[\b^SAND\b]/){
 push @data,[@array];
 }