foreach my $item (@data)   {

    split /\t/;

  }