use Devel::Peek;
            $a = 42; $a = "hello";
            Dump $a;

    The output:

            SV = PVIV(0xbc288) at 0xbe9a8
              REFCNT = 1
              FLAGS = (POK,pPOK)
              IV = 42
              PV = 0xb2048 "hello"\0
              CUR = 5
              LEN = 8