#!/usr/bin/perl -w

use strict;

my @a = (1,2,3);
my @b = (4,5,6);
my @c = (7,8,9,0);

my @array = (@a, @b, @c);
my $size = @array;
# $size will be 10

##</code><code>##

#!/usr/bin/perl -w

use strict;

my @a = (1,2,3);
my @b = (4,5,6);
my @c = (7,8,9,0);

my @array = (\@a, \@b, \@c);
my $i;
for (@array) {
        $i += @$_;
}
# $i will be 10, scalar @array will be 3