my $skip = 0; for my $i (0 .. $#array) { next if $i == $skip; #process } #### for (@array[1 .. $#array]) { #process }