my $x = bless {}, SomeClass;
  my $y = $x;

  say ref($y); # prints 'SomeClass';

  my $z = bless {}, SomeOtherClass;
  ...do some magic so that $x 'becomes' $z...

  # note this also changes $y:
  say ref($y); # prints 'SomeOtherClass'