Select Code to Download

my @T1 = ( 'a|b', 'b|c', 'c|d', 'j|k', 'k|l', 'l|m', 'm|n' );

#! /opt/perl/bin/perl -w
#
...

# Display results
print "\%trailsToCombine = ", Dumper(\%trailsToCombine);

%trailsToCombine = $VAR1 = {
          'm|n' => 'j|k|l|m|n',
...
          'l|m' => 'j|k|l|m|n',
          'c|d' => 'a|b|c|d'
        };