Comparing 2 arrays but ignoring certain patterns

Select or download this

ctahci
cptcsa0
ctsata:25:seed
cptcsa1:50:seed
ctsata_1:25:seed

Select or download this

cptcsa0
ctsata
cptcsa1

Select or download this

ctahci
ctsata_1:25:seed

Select or download this

 #!/usr/intel/bin/perl

@testlist = qw(ctahci,cptcsa0,ctsata:25:seed,cptcsa1:50:seed,ctsata_1:
+25:seed)
...
open (OUTFILE, ">$outfile") or die "Cannot open $outfile for writing \
+n";
);
print OUTFILE "$_\n" foreach (@newlist);;

Select Code to Download