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