Select Code to Download

for my $triplet ( @S ){
        my %Pie;
        undef @Pie{@$QT};
        delete @Pie{ @$triplet };
        print "@$triplet\n" if keys(%Pie) <= ( @$QT - @$triplet ) ;

sub induced {
my (@z)=@_;
...
component 2 = e d
component 1 = c a b
b c a