my @list = map {
    my $start  = $_;
    map { [$start, $_, $entfernung{$start}{$_}] } keys %{$entfernung{$start}};
} keys %entfernung;

my @sorted_list = sort { $a->[2] <=> $b->[2] } @list;
printf "Von %s nach %s: %d\n", @$_ foreach @sorted_list;