(I smell homework, maybe... Oh well.)

There are a couple of problems with your code.

By looking at $numbers[$i+1], you're going to be reading past the end of the array... Not really a serious problem in perl, but something to keep in mind. You're also skipping element 0 in the array.

You'll also mark as highest any value that's followed by a lower number. So if @numbers is (1,0,100,0,2,0), you'll get 2 instead of 100.

You should be comparing $numbers[$i] with the highest value you've seen so far.

# we assume numbers was set up somewhere above...
my $highest;
# we'll get undef if @numbers is empty
$highest=$numbers[0] if @numbers;
for(my $i=1; $i<@numbers; $i++) {
    if($numbers[$i]>$highest) {
        $highest=$numbers[$i];
    }
}
print $highest;
[download]

--
Mike