use Algorithm::Numerical::Shuffle qw(shuffle);
my @array = shuffle qw /one two three four/;