Select Code to Download

use warnings;
use strict;
...
my %new = map {$_ => $vals[int(rand(@vals))]} keys %h;

print Dumper \%new;

$VAR1 = {
          'c' => 2,
...
          'd' => 3,
          'b' => 1
        };