simple perl iteration