my @sorted = 
  # stelle aus der sortierten Liste von Array-Referenzen das Original wieder her
  # (dereferenziere jeweils das 1. Element)
  map { $_->[0] }
    # 2. sortiere nach dem gewünschten Kriterium (2. Element in Referenz)
    sort { $a->[1] <=> $b->[1] }
      # 1. jedes Element aus @unsorted wird ersetzt durch eine Array-Referenz, 
      # die das Original und unser Sortierkriterium enthaelt
      map { m/chr(\d+)/; $_ = [ $_, $1 ] } 
        @unsorted;