my(@counts);

for(my $i=0;$i<100000;$i++)
  {
    foreach my $c (pick_n(3,1,10))
      {
        $counts[$c]++;
      }
  }

for(my $c=0;$c<=$#counts;$c++)
  {
    print "Count[$c] = $counts[$c]\n";
  }