Help for this page
%pets = ( 'pony' => 2, 'cat' => 2, 'dog' => 2 );
#!/usr/bin/perl -w ... foreach (sort keys %pets) { print "$_: $pets{$_}\n"; }