923.066 923.813
432.895 433.381
M1 M2

##</code><code>##

923.066 432.895 M1 
923.813 433.381 M2

##</code><code>##

 #!/usr/bin/perl
use strict;
use File::Path qw(rmtree);

my @rows = ();
my @transposed = ();

open F1,"input.txt";
while(<F1>) {
    chomp;
    push @rows, [ split / / ];
}
#print @rows;

my $filein2 = "input2.txt";
unlink $filein2;

open my $fileHandlein2, ">>", "input2.txt" or die "Can't open 'input2.txt'\n";

for my $row (@rows) {
  for my $column (0 .. $#{$row}) {
    push(@{$transposed[$column]}, $row->[$column]);
  }
}




for my $new_row (@transposed) {
  for my $new_col (@{$new_row}) {
      print $fileHandlein2 $new_col, " ";
  }
  print "\n";
}