Can any perl gurus answer this?