As Dog_and_Pony pointed out, the only reason for the for-loop is to put the return value of ref into $_.

So, in good obfu-manners something (for) is used for soemthing different than what it's ususally used for.

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