Small changes on for-loop-in-perl and moved to pages