Array Perl

@array = qw( zero one two three four five six seven eight nine );
$#array = 10;        
print "@array.\n";