use strict;
use warnings;
use Data::Dumper;
$|=1;
 
my $start="B";
my $stop="E";
 
my %graph =(
          'F' => ['B','C','E'],
          'A' => ['B','C'],
          'D' => ['B'],
          'C' => ['A','E','F'],
          'E' => ['C','F'],
          'B' => ['A','E','F']
        );
 
track($start);
 
sub track {
  my @path=@_;
  my $last=$path[-1];
  for my $next (@{$graph{$last}}) {
    next if $next ~~ @path;
    # next if grep {$_ eq $next } @path;
    if ($next eq $stop){
      print join ("->",@path,$stop),"\n";
    } else {  
      track(@path,$next);
    }  
  }
}