my @c = @hash{ sort{ $a <=> $b } keys %hash };