for (my $i=1; $i<=10000; $i++) {
  my $s = Sheep->new($i);
  $gate->through($s);
}