for my $well (splice @derivative, 1, @derivative) { # }