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

    The output: 

    SV = IV(0xbc818)
    REFCNT = 1
    FLAGS = (IOK,pIOK)
    IV = 42