package MyPackage; use overload q/++/ => sub { $_[0]->{foo}*=2; shift }; package main; $d = $c; $d++;