in reply to If Shakespeare had written in Perl

I missed an optimisation!

sub horse();
my @horse = (1,2);
for (@horse) { 
  &horse();
  my $kingdom;
}

[download]

In Section Perl Poetry