foreach (@data)
{
  print "$_";
  print "\t";
}
print "\b"; # backspace over the last tab