my $array = [ qw(1 .. 10) ]; my $array_length = scalar @$array;