> perlで配列@hogeがあったとして要素数を得るにはどうすればいいんだろうか

my $kaunto = 0;
my $hoge_ref = \@hoge;
foreach my $item ( @{$hoge_ref} )
{
  my $kaunto_back = $kaunto;
  $kaunto = $kaunto_back + 1;
}

大変だぜ

参考：2002/10/30(水)02時24分06秒