寝る前に思いついたので、fizzbuzz
my @a = (undef,undef,'fizz'); my @b = (undef,undef,undef,undef,'buzz'); my $a = 0; my $b = 0; for(my $i=1;$i<=100;$i++){ my $str = $a[$a++]; $str .= $b[$b++]; $a = 0 if(@a-0 <= $a); $b = 0 if(@b-0 <= $b); print ($str || $i); print "\n"; }