Select Code to Download

if(($array1[0]=~/c/i) && ($array2[0]= ~/c/i))

...
        }

}

#!/usr/local/bin/perl
use strict;
...
close OUTFILE;

}