use List::Util qw(min max);
$min = min @list;
$max = max @list;