open(DATEI,"datei.txt") || die "Apothekenfile nicht gefunden";
while(<DATEI>) 
{
   open(SERVER1,">>apo_server1.txt") || die "Datei     apo_server1.txt nicht gefunden";
   {
            @unsorted = "$_";
            my @sorted = map{$_->[0]}sort{$a->[1]->[-1] <=> $b->[1]->[-1]}map{[$_,[split(/ /,$_)]]}@unsorted;
            print SERVER1 $_ for(@sorted);
            
   }
   close(SERVER1);
}
close(DATEI);

print $_,"\n" for(map{$_ * $_}(1,2,3));

open(DATEI,"datei.txt") || die "Apothekenfile nicht gefunden";
my @unsorted = <DATEI>;
close(DATEI);

my @sorted = map{$_->[0]}sort{$a->[1]->[-1] <=> $b->[1]->[-1]}map{[$_,[split(/ /,$_)]]}@unsorted;

open(SERVER1,">>apo_server1.txt") || die "Datei     apo_server1.txt nicht gefunden";
print SERVER1 $_ for(@sorted);
close(SERVER1);

#!D:/Perl/

use strict;
use warnings;

open(DATA,"neu-1.txt") or die "Konnte File nicht oeffnen\n";
while (<DATA>) 
{
    chomp;
    my @row = split /;/, $_;            # Bei; wird getrennt
    @row = map { s/"/ /g; $_ } @row;   # Ersetzt " durch 'Leerzeichen'
                 
    open(DATEI,">>datei.txt") || die "File nicht gefunden";
    if ("$row[3]" =~ /01/ || "$row[3]" =~ /02/ || "$row[3]" =~ /03/)
        
    {

for($row[3])
        {
            my @sortierung = sort NummernSort $row[3];
            for (@sortierung)
            {
               
              print $_,"\n";
            }
        }
        
        sub NummernSort
        {
        if($a < $b)
        { return -1; }
        elsif($a == $b)
        { return 0; }
        else
        { return 1; }
        }

for($row[0])
        {
            $_ =~ s/^\s+//g;              # Leerzeichen am Anfang entfernen
            print DATEI "$_";
        }    
        for($row[1])
        {
            $_ =~ s/^\s+//g;
            $_ = sprintf("%07i",$_);      # Von links auf 7 Stellen mit Nullern auffüllen
            print DATEI "$_";
        }
        for($row[2])
        {
            print DATEI "$_";
        }
        for($row[3])
        {
            $_ =~ s/^\s+//g;           # Leerzeichen am Anfang entfernen
            print DATEI "$_";
        }
        print DATEI"\n";
   }
   close(DATEI)
      
}
close(DATA);

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);