Help for this page

Select Code to Download

Select or download this

use List::Util qw( min );

$result = min($a, $a);