# sortiere nach dem letzten Feld (sort-Teil) und gebe immer die komplette
# Zeile zurueck (map-Teil)
my @sorted = map{$_->[0]}sort{($a->[1] || 0) <=> ($b->[1] || 0)}@entries;