Dear AM, My problem has been forked off from this thread

http://www.perlmonks.org/?node_id=997085

What Im stuck with is this :: Suppose If component=(a,b,c,d); Then I want to find the set of triplets induced by these 4 vertices. For example for above four points the induced triplets(from input data) should be:

b c a 
a c d
[download]

Whereas for component=(d,e,a) there isn't any triplet in the data. Similarly for component=(b,e,d) there is a triplet (d e b) in the data(the last one). The first two posts there would give you an idea about what Im trying to achieve. Thanks a ton.

__DATA__
b c a
a c d
d e b
[download]