open(DATEI,"datei.txt") || die "File nicht gefunden";
while(<DATEI>) 
{
        my @anzahl = $_;
        my @sortierung = sort(NummernSort @anzahl);  #<--Da muss was in der Art (Nummern Sort $anzahl[3]); rein
        for(@sortierung)
        {
            print $_;
        }
        
        sub NummernSort {
        if($a < $b)
        { return -1; }
        elsif($a == $b)
        { return 0; }
        else
        { return 1; }
}