$found_goal = 0; sub visit { my($i, $j) = @_; if (!$seen[$j]) { $seen[$j] = 1; $previous[$j] = $i; $queue[$queue_tail++] = $j; if ($goal == $j) { $found_goal = 1; } } }