Array Perl

@array = qw(one two three);