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