while (my ($k, $v) = each %$locals) {
    local ${$k} = $v;
}