Select Code to Download

my %T1 =  (
          'a|b' => 'a|b',
...
          'l|m' => 'l|m',
          'm|n' => 'm|n'
          );

my %newTrailsToCombine =  (
          'a|b' => 'a|b|c|d',
...
          'l|m' => 'j|k|l|m|n',
          'm|n' => 'j|k|l|m|n'
          );

%newTrailsToCombine$VAR1 = {
          'm|n' => 'm|n|l|m',
...
          'a|b' => 'a|b|b|c',
          'l|m' => 'l|m|k|l|m|n',
          'c|d' => 'c|d|b|c'

#! /opt/perl/bin/perl -w
use strict;
...
#process_trailsToCombine(%trailsToCombine);
print "\n Dumping \%newTrailsToCombine";
print Dumper(\%newTrailsToCombine);