Select Code to Download

use List::Util qw(shuffle);
...
foreach my $k (shuffle keys %foo) {
...
}

%hash = (
   "a" => 1,
...
   "c" => 3,
   "d" => 4
};

%hash = (
   "c" => 1,
...
   "a" => 3,
   "b" => 4
};