print "$_\n" for ( @array[1..$#array] );

# which is the same as:

for my $i ( 1 .. $#array ) {
    print "$array[$i]\n";
}

# and

$" = "\n";
print "@array[1..$#array]\n";