my @words = map { lc } read_file $dict; @words = shuffle @words;
my @words = shuffle map { lc } read_file $dict;