Random choice from list as unique by Perl.