perl -le '@l=sort{rand$_<=>rand$_}(1..10);print for@l[0..2]'