Select Code to Download

sub order_of_sorted {
    my ( @num, @suff );
...
        # ...
    }
}

   for my $inner ( ( values %$outer )[ order_of_sorted keys %$inner ] 
+) {
   #                        ^^^^^^^ Correct.                ^^^^^^^ Oo
+ps.