5 use experimental 'for_list';
11 my ($x0, $y0) = splice @list, 0, 2;
14 for my ($x, $y) (@list) {
15 while ($x0 != $x || $y0 != $y) {
25 while (!$map[0][500]) {
26 my ($x, $y) = (500, 0);
29 if (!$map[$y+1][$x]) {
31 } elsif (!$map[$y+1][$x-1]) {
33 } elsif (!$map[$y+1][$x+1]) {