$top = 3; $left = 3; $top--; $left--; foreach(0..$top){ $arr[0][$_] = 1; $arr[1][$_] = $_ + 1; } foreach(0..$left){ $arr[$_][0] = 1; $arr[$_][1] = $_ + 1; } foreach $a (0..$left){ foreach $b (0..$top){ if(!defined $arr[$a][$b]){ $arr[$a][$…