my @test = $data[$t] =~ /(\S+)/g;