Select Code to Download

my @paths = [ { id => 1, path => [A,B], order => 'F' }, { id => 2, pat
+h => [C,D,E], order => 'F' }, { id => 3, path => [E,B], order => 'F' 
+} ];

my %plus_minus;
$plus_minus{1}{A} = '+';
...
$plus_minus{2}{E} = '-';
$plus_minus{3}{E} = '-';
$plus_minus{3}{B} = '-';