Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    my @ordered = sort {$a <=> $b} keys %byValue;
    
    print "$_: @{$byValue{$_}}\n" for @ordered;
    
  2. or download this
    2: Rat Cow
    3: Bat
    5: Cat
    12: Dog