our($ra1, $ri1, $rf1, $rfe1); $ra1 = $[; BEGIN { $ri1 = $^H; $rf1 = $^H{foo}; $rfe1 = exists($^H{foo}); } 1;