%hash = ();
for (
    [ foo => 'bar' ],
    [ bar => \$hash{foo} ]
) {
    $hash{ $_->[0] } = $_->[1];
}