my $size = @array;
print $size;