open my $out, '>', 'new_file' or die $!;

##</code><code>##

my $runTest = 'sydney,delhi,NY,Russia';
print {$out} $runTest =~ tr/,/\n/r;

##</code><code>##

my @lines = split /,/, $runTest;