!/usr/bin/perl -w
use strict;

my %jetsons = (
    7  => 'Judy',
    10 => 'Jane',
    11 => 'George',
    2  => 'Elroy',
    100=> 'Rosey',
    1  => 'Astro',
    19 => 'Mr. Spacely',
    22 => 'Mr. Cogswell');

foreach my $key (sort { $a<=>$b } keys %jetsons)
{
   printf "%-5s %s\n", $key, $jetsons{$key};
}

__END__
1     Astro
2     Elroy
7     Judy
10    Jane
11    George
19    Mr. Spacely
22    Mr. Cogswell
100   Rosey