use List::Util qw[min max]; $m = max(1,2);