my $first = @{[qw( one two three four )]};   # 4