foreach my $parse (@profiles) {
                        if (@profiles){

##</code><code>##

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