Array Perl

@array = (1 .. 10);
print @array;