$i+=($_&1?4:-4)/($_*2-1)for 1..1e6;print$i #23456789_123456789_123456789_123456789_12 # 1 2 3 4