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