@a[s/\B/0/gr%99*2e5+$_]="$_
"x!/0/for 1..1x6;print@a[0..1402221]