#!/usr/local/bin/perl
use strict;

my (@race_code0, @race_code1, @race_code2, @race_code3);
@race_code0 = ("abc", "def", "ghi");
@race_code1 = ("aaa", "bbb", "ccc");
@race_code2 = ("111", "222", "333");
@race_code3 = ("123", "456", "789");
my @array = (\@race_code0, \@race_code1, \@race_code2, \@race_code3);

print @($array[0]);


こんな感じで参照を配列に格納して格納先から要素数を
取り出したいのですがどうすればいいのでしょうか？
要素数取り出す、スカラーを取り出したい。