>perl -wMstrict -le
"my %jetsons = (
     7  => 'Judy',
     10 => 'Jane',
     11 => 'George',
     2  => 'Elroy',
     100=> 'Rosey',
     1  => 'Astro',
     19 => 'Mr. Spacely',
     22 => 'Mr. Cogswell'
   );
 ;;
 my @sorted = sort non_spaceship keys %jetsons;
 print qq{@sorted};
 ;;
 sub non_spaceship { return $a < $b ? -1 : $a > $b ? 1 : 0 }
"
1 2 7 10 11 19 22 100