# evtl. Leerstrings im letzten Feld durch Nullen ersetzen
$_->[-1] = 0 unless $_->[-1] for @entries;

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