$b[$a[$_]++%3]=$_ for@a=(11121010011 .<>)=~/./g,0..9;print"@b[1,2]"