Help for this page
foreach (sort { $a <=> $b } keys %hash) { push @c, \@{$hash{$_}}; }
@c = map { \@{ $hash{$_} } } (sort { $a <=> $b } keys %hash);
push @c, map { \@{ $hash{$_} } } (sort { $a <=> $b } keys %hash);