$_ = q(joe,is,at,home,and,going,to,market,);
while(/\,/g){
    print pos()," ";
}