@data = sort {rand < rand} @data;
[download]

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