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