Perl Poetry: A Code Haiku Collection

Everyone has seen the Perl ASCII art and obfuscation competitions that are everywhere. I’ll make my own attempt, with a Perl haiku collection. These four haikus form a syntactically correct script that prints all prime numbers lower than 100.

my @primes = (2);
my $limit = 100;
my $i = 2;
 
my $b = 0;
while ($i < $limit) {
$i += 1;
 
foreach $_ (@primes) {
unless (!($i % $_)) { }
else { $b = 1; } }
 
if ($b == 0)
{ push @primes, $i; } $b = 0; }
print "@primes \\n";

Pronounce the code like this:

My primes equals two
My limit equals hundred
My i equals two

My b equals o
While i is less than limit
I plus equals one

For each under primes
Unless not i mod under
Else b equals one

if b equals o
Push primes i, b equals o
Print primes backslash n

It works perfectly, too.

Maybe Related?

• Haiku #7: Emoticons
• HTS Realistic 3: Re-Overwrite the Index
• Failure to Install GD with CPAN: LDS/GD-2.35.tar.gz
• Sort a string internally with Perl
• Reading AdSense CSV in Perl (UTF-16 Problems)