awk loop skip
perl loop skip