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

##</code><code>##

my $string;
foreach( @data ){
   $string .= "$_\t";
}
chop( $string ); # not chomp, but chop.
print $string;