$ perl -wMstrict -MDevel::Peek -le 'my $x="11a"; $SIG{__WARN__}
       = sub{$x="99"}; print "num: ",$x+0,", str: $x"; Dump($x)'

num: 11, str: 99
SV = PVNV(0x59efe266a440) at 0x59efe2692648
  REFCNT = 2
  FLAGS = (POK,IsCOW,pIOK,pNOK,pPOK)
  IV = 11
  NV = 11
  PV = 0x59efe26d3ae0 "99"\0
  CUR = 2
  LEN = 10
  COW_REFCNT = 1

##</code><code>##

$ perl -wMstrict -MDevel::Peek -MScalar::Util=dualvar
                 -e 'my $x=dualvar(11,"99"); Dump($x)'