foreach (@data)
{
  print "$_";
  print "\t";
}