Perl & ComBat Script