配列の要素数を取得するには、スカラーコンテキストで評価をします。

my @array = ("Apple", "Orange", "Tomato");

# $countという変数に代入する
my $count = @array;
print $count;

scalar関数を利用する方法もあります。こちらの方が簡単ですね。

print scalar(@array);