my @sorted_keys = map { unpack "l>", $_ } sort map { pack "l>", $_ } keys %jetsons;