print {$RF} map { "$_\n" } split(/,/, $runTest); #### open (my $RF, '>', 'testFile'); #### open (my $RF, '>', $testFile);