my $end = $#array;
print "$array[3..$end]\n";

##</code><code>##

my $end = $#array;
print "$array[3]..$array[$end]\n";