$min = $a;
$min = $b if $b < $a;
Not only that—if you change $b < $a to $b < $min in the second line, then you're most of the way to addressing the problem with (I think) all the other non-min solutions so far, namely, that they don't handle more than two elements!
(I sure do love that [ $a => $b ]->[ $b <= $a ] one, though—so much so that, when I heard about it here, I ran out and got Effective Perl just to see if it had more like that. Since the rest of the advice was good, rather than pain-on-the-maintenance-programmer-inflicting, I guess that I have to stick with the obfuscated Perl section here.)
| [reply] [Watch: Dir/Any] [d/l] [select] |