My first poem, probably done scores of times before: 
@horse = @horse;
my $kingdom for(){ @horse;}

[download]

Back to Perl Poetry