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