foreach my $well (@derivative[1..$#derivative]) {

# blah blah blah

}