$ perl -E 'my $answer = [qw{x y z}]; say 0+@$answer;'
3