$f = 'a'; for ( 0 .. 25 ) { print "$f "; print "\n" if $_ == 12; $f++; } print "\n";