my $size = @array;
print "$size\n";
# or...
print scalar(@array), "\n";
# or ..
print @array . "\n"; # Because '.' invokes scalar context on its operands.