in reply to Using shift() on sort() and syntactical funniness

I don't understand why you don't just do this: 
sub minimum {
  my ($min) = sort ....;
  return $min;
}

[download]

In Section Seekers of Perl Wisdom