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