Just for reference, I was the one who suggested the "shifter".

And, to be honest, I suggested the evil foreach-shift-thingy, too.

--
#!/usr/bin/perl
for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}
[download]