配列の区切り文字

#!/usr/bin/perl

my @array = qw /Linux Perl Postgres/;
print "@array\n";

$" = "\n";
print '$" is now \n' . "\n";
print "@array\n";

Linux Perl Postgres
$" is now \n
Linux
Perl
Postgres