Select Code to Download

use List::Util qw( max );

...

print +(sort { $b <=> $a } $a, $b, $c)[0];
print max ($a, $b, $c);