use Text::CSV_XS;

my $file = '/pfad/zur/Datei.csv';
my @entries;

my $parser = Text::CSV_XS->new({sep_char => ';'});

open(my $fh,"<$file") or die $!;
while(my $line = <$fh>){
  if($parser->parse($line)){
    my @fields = $parser->fields();
    push(@entries,[$line,$fields[-1]]);
  }
}
close $fh;

my @sorted = map{$_->[0]}sort{$a->[1] <=> $b->[1]}@entries;

print $_,"\n" for(@sorted);