while (<MYFILE>) {
  chomp;
  @line = split /\t/;
  $oldlastcol = $lastcol;
  $lastcol = $#line if $#line > $lastcol;
  for (my $i=$oldlastcol; $i < $lastcol; $i++) {
    $outline[$i] = "\t" x $oldlastcol;
  }
  for (my $i=0; $i <=$lastcol; $i++) {
    $outline[$i] .= "$line[$i]\t"
  }
}
for (my $i=0; $i <= $lastcol; $i++) {
  $outline[$i] =~ s/\s*$//g;
  print $outline[$i]."\n";
}