%hash = ();
%temp = (
    foo => 'bar',
    bar => \$hash{foo}
);

$hash{$_} = $temp{$_} for keys %temp;