foreach my $q (@quadruple) {  
    @triple = grep {$_ and $q !~ /$_/} @triple;
}