Help for this page

Select Code to Download

Select or download this

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