[perl #122556] Make undef $s free refs forthwith