print join ("\t", @data);

so if you insist on using foreach, how about re-ordering your prints like this:

print shift @data;
foreach (@data)
{
  print "\t";
  print "$_";
}
[download]

Shrug...

Update: same caveat about references that japhy mentions applies to the above. I was assuming your array did not entail any complex data structures ;)

Update 2: OK not exactly the same problem as japhy mentions, but if your @data array contains references you're gonna get ugly results ;) thanks for correcting me japhy

..Guv

foreach (@data) {
  print;
  print "\t" if \$_ != \$data[-1];
}
[download]

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a (from-home) job
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;

print join("\t", @data);
[download]

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

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

The best suggestion I can give, if you want to play it real safe and don't want work on copies (in which case a while loop would have been more obvious):

{
  my $i = 1;
  foreach (@data) {
    print "$_";
    print "\t" unless $i == @data;
  }
  continue {
    $i++;
  }
}
[download]

The Sidhekin
print "Just another Perl ${\(trickster and hacker)},"