my @a = ( 3, 1, 4, 1, 5 );
my $N = @a;
say $N; # or print "$N\n; before 5.10
my $aref = \@a;
$refsize = @$aref; # or @{$aref};
say $refsize;