#!/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