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