my $highest = 0;
foreach my $element ( @numbers ) {
   $highest = $element if $element > $highest;
}
print $highest;