Finding the Smaller Value in Perl

The following code chunk was found in Perl Best Practices. Its syntactic symmetry and elegance caught my attention.

print [$result1=>$result2]->[$result2<=$result1];
Feedback is always welcome! If you'd like to get in touch with me concerning the contents of this article, please use Twitter.