map{for$a((/1|4/?reverse~~<>:<>)=~/./g){$x[7+($x+=/3/-/1/)][8+($y+=/2/-/4/)]=$a}}2123434341214123=~/./g;print map$_||$",@$_,$/for@x