($_,$,,$#,$\)=map$_.$ ",qw)just another perl hacker);print$_,1