use strict; 
use warnings; 
use Data::Dumper; 
 
my @S; 
while (<DATA>) { 
    push @S, [split]; 
} 
print "-----TRIPLETS-------\n"; 
print Dumper \@S; 
 
__DATA__ 
b c a 
a c d 
d e b

b c a  
a c d

#!/usr/bin/perl 
use Data::Dumper; 
use strict; 
use warnings; 
 
 
my @S = do { 
    open my($data), '<', \q{b c a 
a c d 
d e b}; 
    map { [ split ] } readline $data; 
}; 
 
print Dumper \@S; 
 
for my $QT ( [qw[ a b c d ]], [qw[ b e d ]] ){ 
    print Dumper $QT; 
    for my $triplet ( @S ){ 
        my %Pie; 
        undef @Pie{@$QT}; 
        delete @Pie{ @$triplet }; 
#~         warn scalar keys %Pie ; 
#~         warn scalar @$QT; 
        print "@$triplet\n" if keys(%Pie) <= ( @$QT - @$triplet ) ; 
    } 
}

$VAR1 = [ 
          [ 
            'b', 
            'c', 
            'a' 
          ], 
          [ 
            'a', 
            'c', 
            'd' 
          ], 
          [ 
            'd', 
            'e', 
            'b' 
          ] 
        ]; 
$VAR1 = [ 
          'a', 
          'b', 
          'c', 
          'd' 
        ]; 
b c a 
a c d 
$VAR1 = [ 
          'b', 
          'e', 
          'd' 
        ]; 
d e b