in reply to Schwartzian transform for randomizing a list
use List::Util qw(shuffle); @list = shuffle @list; [download]
Makeshifts last the longest.