foreach my $item (@data) { push @data_split, [split /\t/, $item]; }