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

my @a=(1..100);

print "Geordnet: @a \n";

for (my $i = 0; $i < (scalar @a)-1; $i += 2){
	my $temp = $a[$i];
    $a[$i] = $a[$i+1];
    $a[$i+1] = $temp;
}
print "Ganzes Array: @a \n";