This one has the fun of "eval" built in:
perl -e'print eval q:map{$a=$_;map{$_.$a}(a..z,0..9,"-")}:x pop .q:("\n"):'
Cheers,
Tom
==== Want to unsubscribe from Fun With Perl? Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
==== unsubscribe