Select Code to Download

use strict;
use warnings;
...
    do { $max = $_[$_] if $max < $_[$_]; } for 1..$#_;
    $max;
}

my $max = (sort { $b <=> $a } @arr)[0];