$ perl -le '@a{map{int rand 1185}(1..10)}=();print for keys %a' 373 304 286 210 816 777 596 18 766 880