my @array;
$#array = 512;

# or 

my %hash;
keys %hash = 512;