use List::Util qw( min );

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