Slide for -- Perl mod: DestructAssign Implementation