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