my ($min,$max) = (sort @something)[0,-1];