while ($queue_head < $queue_tail && !$found_goal) {
    my $i = $queue[$queue_head++];
    for $e (0 .. $adj_length[$i]) {
        my $j = $adj_edge[$adj_index[$i] + $e];
        visit($i, $j);
    }
}