use warnings;
use strict;

use Data::Dumper;

my %h = (
    a => 1,
    b => 2,
    c => 3,
    d => 4,
);

my @vals = values %h;

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

print Dumper \%new;

##</code><code>##

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