kristian@wst1:~> perl -wle '
my %hash = (nummer => ["bla", 3], test => ["bla", 1] );
my @sorted_keys = map { $_->[0] }
sort { $a->[1] <=> $b->[1] }
map { [$_, $hash{$_}->[1] ] } keys %hash;
print $_ . " => " . $hash{$_}->[0] . " => " . $hash{$_}->[1] for @sorted_keys;
'
test => bla => 1
nummer => bla => 3

kristian@wst1:~> perl -wle '
my %hash = (nummer => ["bla", 3], test => ["bla", 1] );
my @sorted_keys = map { $_->[0] }
sort { $b->[1] <=> $a->[1] }
map { [$_, $hash{$_}->[1] ] } keys %hash;
print $_ . " => " . $hash{$_}->[0] . " => " . $hash{$_}->[1] for @sorted_keys;
'
nummer => bla => 3
test => bla => 1