Select Code to Download

%pets = (
          'pony' => 2,
          'cat' => 2,
          'dog' => 2
        );

#!/usr/bin/perl -w

...
foreach (sort keys %pets) {
  print "$_: $pets{$_}\n";
}