my $array = [qw(1 2 3)];
my $array_len = @$array;

# $array_len == 3