Language Basics Perl

@array = ("one", "two", "three");
$, = ",";
print "Here is the array: ", @array, ".\n";