use strict;
use warnings;
my %copy = ();
while ( my ($key, $value) = each(%hash) ) {
    $copy{$value} = $key;
}