Did you know that the increment operator (++) is magical when you pass it a string?

Try this:

$a = 'a';

print $a++, "\n" for 1 .. 40;
[download]

--
<http://www.dave.org.uk>

Perl Training in the UK <http://www.iterative-software.com>