use Algorithm::Numerical::Shuffle;
foreach my $element (shuffle @array) {
   ...
}