my @array = (0) x 1000;