foreach my $well ( @derivate[ 0 .. @derivate-1 ] ){ ...