Select Code to Download

#!/usr/bin/perl -w

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

#!/usr/bin/perl -w

...
        $i += @$_;
}
# $i will be 10, scalar @array will be 3