Help for this page

Select Code to Download

Select or download this

my %seen;
my @nodes = ([$start, 0]); # $start is the starting node
...
        }
    }
}