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