A quick run thru, if I get this correctly :)

You basically stuff the alphabet in @_, join it in $_, stuff a bunch of numbers in @_ again, loop thru those values, abusing $. (input line operator) while doing so, and printing a substr of 1 from the alphabet, position depending on those numbers you have in @_. What about : $.=join('',a..z); print substr($.,$_,1) for(9,0,15,7); #or.. uhm err print substr(join('',a..z),$_,1) for(9,0,15,7); [download]

which basically does the same

Greetz
Beatnik
...Perl is like sex: if you're doing it wrong, there's no fun to it.