Array Perl

@array = (0) x 100;
print @array;