my @array = qw/ a b c /;
my $x = @array;