sub copy { my ( $self ) = @_; my ( $new ); %{ $new } = %{ $self }; bless $new, 'Stuff'; return $new; }