What's the code to retrieve the greatest (largest) numerical value in an array (list)?

No need to reinvent the wheel: use a module.

use List::Util qw(max);
$largest = max(qw(1 11 2 3));
print $largest;
[download]