Maybe this is a silly answer, but maybe it's not:

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

If that wasn't silly, this certainly won't be...

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

"Silly" is relative.