Help for this page

Select Code to Download

Select or download this

foreach my $thing(@b){
    if(scalar grep(/^$thing/,@a) == 0){
        push(@c,$thing);
    }
}