配列の要素数、配列の添え字最大値を求めるには

gistfile1.pl

#
# 配列の要素数、配列の添え字最大値を求めるには
# http://codepad.org/SrwvXijK
#
use strict;
my @hoge = (1,2,3);
my $fuga = [1,2,3];
print scalar @hoge, $#hoge;
print scalar @{$fuga}, $#$fuga;