Re: Numeric sorting WITHOUT <=>

[GrandFather]

in reply to Numeric sorting WITHOUT <=>

my @sorted = sort {sprintf ('%09d', $a) cmp sprintf ('%09d', $b)} keys
+ %jetsons;

[dsheroh]

Don't really need the explicit cmp:

my @sorted = sort map { sprintf '%09d', $_ } keys %jetsons;

[GrandFather]

But that's nearly half the length so it can't be near half so good. :-)