8 my ($n1, $n2) = split /-/;
19 my %visited = map { $_ => 1 } grep { /[a-z]/ } @path;
21 for my $node (keys %{ $g{$here} }) {
22 next if $visited{$node};
24 push @paths, [ @path, $node ];
25 say join('-', @{ $paths[-1] });
27 my $p = join('-', @path, $node);
28 next if $subpaths{$p}++;