Language Basics Perl

@array = (1, 2, 3);
$" = ',';
$text = "@array";
print $text;