Re^2: Randomly select values from array

[ikegami]

@data = sort {rand < rand} @data;

is not guaranteed to work, much less return something random. Use List::Util's shuffle instead.