Приводит ли строка с sort к более случайному массиву или sort здесь только трата?
sort
use List::Util qw(shuffle); @random1 = shuffle sort keys %vocables; @random2 = shuffle keys %vocables;