# Use a sentinel variable

    my $first;
    foreach my $well (@derivative) {
        next unless $first++;
        # Do something
    }



    # Use an array slice

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



    # Use the array indices

    foreach my $i (1..$#derivative) {
        my $well = $derivative[$i];
        # Do something
    }
[download]

--
John.

The fourth way! (sounds like a book title:)

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

The destructive way...

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

Cheers,

-- Dave :-)

---

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

or the destructive and funky version of your code ;-)

for ( do {shift @derivative; @derivative} ) {
    #
}
[download]

-- Hofmator

You may a) use a flag variable b) omit foreach(@array) in favour of foreach(0 .. @array-1) or you could c) use a slice:

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

As you like it.

You could do this:

my $well;
foreach ( 1..$#derivative )
{
  $well = $derivative[ $_ ];

  # blah blah blah
}
[download]

-- JaWi

"A chicken is an egg's way of producing more eggs."

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