for my $row (@blat_data) {
   my @splitted_row = split /\t/, $row;