my $aryref=[ qw(one two) ];
my @array=@$aryref;
my @arraytwo=qw(one two);