# 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;