my $tmp = shift@derivative;
for my $well (@derivative) {
 # 
}
unshift @derivative, $tmp;