Hi.

There are a couple of different ways, depending on your particular favourite style. Once way is shown below.

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

# blah blah blah

}
[download]

Hope that helps

Cheers,

-- Dave :-)

$q=[split+qr,,,q,~swmi,.$,],+s.$.Em~w^,,.,s,.,$&&$$q[pos],eg,print