Set boundaries for input w/sort

$ perl -wle 'my ($min, $max) = (1,100); print ((sort { $a <=> $b } ($min, $max, $_))[1]) for (-10,10,200)'