my $listSeparator = $"; (@array) = (1..5, "A", "B", "C"); $" = ',' ; print STDOUT "The list separator is a comma.\n"; print STDOUT "@array\n\n";