codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
$hash = { "ほげ" => 10, "ふが" => 5, "ぴき" => 30 }; for my $key (sort { $hash->{$b} <=> $hash->{$a} } keys %$hash) { print $key, ",", $hash->{$key}, "\n"; }
Private
[
?
]
Run code
Submit