$r=(grep!$$_++,@a)[rand@a] #evil