use Data::Dumper;
@alpha = qw/a b c d/;
@beta = qw/e f/;
$arr[0] = \@alpha;
$arr[1] = \@beta;
print Dumper(@arr);

print scalar @{$arr[0]};