Language Basics Perl

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