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