Your data structures look more like arrays. The standard idiom for a random selection from an array is $array[rand @array]. If you want a shuffle, there is one in List::Util.