Random choice from list as unique  by Perl.