($w,$h,$z)=glob<>; $s=$w%3==2?2:1; $t=$h%3==2?2:1; if($z>$s*$t*9){ print "-1\n"; exit; } for$y(0..$h-1){ for$x(0..$w-1){ print $a[$y%3*3+$x%3]//=$y%3==2||($h-$y)%3==0||$x%3==2||($w-$x)%3==0?0:$z>9?($z-=9,9):($t=$z,$z=0,$t); } print$/; }