Select Code to Download

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

my $string;
foreach( @data ){
...
}
chop( $string ); # not chomp, but chop.
print $string;