#!/usr/bin/perl
use strict;
use warnings;

my $filename_in='/pfad/datei.in';
my $filename_out='/pfad/datei.out';

my @MultFact=(); # ????????????

# zu lesende Datei
{
  local $/ = "\r\n";
  open(IN, '<', $filename_in) or die "$filename_in: $!";
  binmode(IN);
  my @in_liste=<IN>;
  close(IN);

 # Daten umwandeln
  for(my $c=0;$c<@in_liste;$c++)
  {
    my $l=$in_liste[$c];
    chomp($l);
    my @arr=unpack('C*',$_);
    map{ $_*=$MultFact[$c] }@arr;
    $in_liste[$c]=\@arr;
  }

  # Zeile<>Spalte tauschen
  my $out_liste=[];
  for(my $scount=0; $scount<@{$in_liste[0]]; $scount++)
  {
    for (my $lcount=0; $lcount<@in_liste; $lcount++)
    {
      $$out_liste[$scount]=[] if(ref($$out_liste[$scount]) ne 'ARRAY'); # ich weiß nicht nötig...
      $$out_liste[$scount][$lcount]=$liste[$lcount][$scount];
    }
  }

  # alles zusammenfügen:
  map{$_=join("\t",@$_)}@$out_liste;
  $out_liste=join("\n",@$out_liste);

  # Ergebnisse hier hineinschreiben
  open(OUT, '>>' ,$filename_out) or die "$filename_out: $!";
  print OUT $out_liste;
  close(OUT);
}