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