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