sub _{print join ("\n",$_[$[],$_[$^W],$_[$^F],$_[$#_]);}$^W=1;&_('just','another','perl','hacker');