$asize = @a;


##</code><code>##

  my $asize = scalar @a;


##</code><code>##

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

my @array = qw( 1 2 3 4 5 );
my $asize = scalar @array;
print "Array size 1 is ", $asize, "\n";
print "Array size 2 is ", @array, "\n";
print "Array size 3 is ", scalar @array, "\n";