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