my @array = qw/zero one two three/;
print @array, $/;
print "@array\n";
print "${@array}\n";