Select Code to Download

  $asize = @a;

  my $asize = scalar @a;

#!/usr/local/bin/perl -w
use strict;
...
print "Array size 1 is ", $asize, "\n";
print "Array size 2 is ", @array, "\n";
print "Array size 3 is ", scalar @array, "\n";