#! perl -slw
use strict;

my @numbers = (3, 2, 1);
my $highest;

## NOTE Perl arrays start from 0 (zero) not 1 (one).
for (my $i = 0; $i < @numbers; $i++)   {
	print "Comparing $numbers[$i] with $numbers[$i+1]";
	if ($numbers[$i] > $numbers[$i + 1])   {
		print "Setting \$highest to $numbers[$i]";
		$highest = $numbers[$i];
	}
 }

 print $highest;
__END__