my @T1 = ( 'a|b|c', 'c|d', 'j|k|l|m', 'm|n|o', 'o|p|q|r|s' );
my %newT1;
foreach (@T1) {
    my @points = split /\|/;
    for (my $i = 1; $i < @points; $i++) {
        my $link = $points[$i-1] . '|' . $points[$i];
        $newT1{$link}++;
    }
}
my @newT1 = keys %newT1;

# Verify that the new array contains the desired points
printf "\@newT1 = %s\n", Dumper(\@newT1);