# 201749 OUT 2014-04-01 00:00:00 30 38362758258 X unkown 2758259 

my @sorted = 
  # benutze die originale Zeile wieder
  map { $_->[0] }
    # sortiere numerisch anhand der extrahierten Zahl im referenzierten Array
    sort { $a->[1] <=> $b->[1] }
      # fuer jede Zeile lege eine Referenz auf einen anonymen Array an: Originale Zeile und die extrahierte Zahl am Zeilenanfang
      map { [ $_, m{^(\d+)} ] }
        # gehe die Zeilen durch
        @lines;