my ($Min,$Max)=(sort @A)[0,-1];