my @a=(1..100);
my $i=0;
my $end=@a;
my $tauschA;
my $tauschB;

print "Gehordnet: $end \n";

foreach(@a){  
    ($a[$i],$a[$i+1]) = ($a[$i+1],$a[$i]);
    #print "@a \n";
    $i++;
    print "Anzahl pro Zeile: $i \n";
    last if($i==$end)
}
print "Ganzes Array: @a \n";
print $i;