my ($min) = keys(%jetsons);
my $max = $min;
for (keys(%jetsons)) {
   $max = $_ if $_ > $max;
   $min = $_ if $_ < $min;
}

my @sorted;
for ($min..$max) {
   push @sorted, $_
      if exists($jetsons{$_});
}