use strict;
use warnings;
use IO::File;

my @zeilen=();
open (DATEI, "</tmp/testdat.txt") or die "Fehler: $!";
while(<DATEI>)
{
   chomp( $_  );
   print "$_ \n";
   push @zeilen, [ split /;/, $_, 4 ];
}
close (DATEI);
print "$zeilen[1][2]\n"

my @liste = ( 41, 37, 10, 30, 127, 512, 111 );
print "@liste\n\n";

my @sort_1 = sort @liste;                                       print "1) @sort_1  (Standard)\n";
my @sort_2 = sort { $a cmp $b } @liste;                         print "2) @sort_2  (ASCII - aufsteigend)\n";
my @sort_3 = sort { $a <=> $b } @liste;                         print "3) @sort_3  (numerisch - aufsteigend)\n";
my @sort_4 = sort { $b <=> $a } @liste;                         print "4) @sort_4  (numerisch - absteigend)\n";

use strict;
use warnings;

my @zeilen=();
my $input_file='/tmp/testdat.txt';
open (my $fileh, '<', $input_file) or die "Fehler bei open($input_file) : $!";
while(<$fileh>)
{
   chomp($_ );
   print "$_ \n";
   push @zeilen, [ split /;/, $_, 4 ];
}
close ($fileh);

my $first_line=shift(@zeilen);
@zeilen=sort{$a->[2] <=> $b->[2]}@zeilen; # wenn es Text ist statt "<=>" "cmp" benutzen.
unsift(@zeilen, $first_line);

print join(';', @{$_}), "\n" for sort vergl @zeilen;

print join(';', @{$_}), "\n" for @zeilen;   #sortiert wieder ausgeben

@zeilen=sort{$a->[2] <=> $b->[2]}@zeilen