String Perl

@array = qw( this is an array of strings );
print "@array\n\n";