Select Code to Download

my @random_numbers;
push(@random_numbers, int(rand(54)) + 1)
...
      sort { $a->[1] <=> $b[1] || $a->[0] <=> $b[0] }
         map { [ $_, $counts{$_} ] }
            keys(%counts);

# Picks 6 unique numbers uniformly between 1 and 54 inclusive.
sub pick6 {
...
      sort { $a->[1] <=> $b[1] || $a->[0] <=> $b[0] }
         map { [ $_, $counts{$_} ] }
            keys(%counts);