foreach my $parse (@profiles) {
                        if (@profiles){
[download]

Your if statement is superfluous because you only get to the if statement if @profiles is true (contains any elements.) If @profiles is empty (false) then the foreach loop will not even run.

                             open (OUT, $proList) || print "cant open 
+profiles file!";
                             print OUT "$parse\n";
[download]

You are opening the file $proList for INPUT so you cannot write to it. You need to open it for output or append.