huan123@huan:~$ perl -le ' $a=10; $b=20; print [ $a => $b ]->[ $b <= $a ]; '
10
huan123@huan:~$ perl -le ' $a=30; $b=20; print [ $a => $b ]->[ $b <= $a ]; '
20
huan123@huan:~$