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];