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