$ref = [ qw/a b c/ ];
print $#{$ref}, $/;