$ perl -MDP -wE'DDump Data::Peek::triplevar"\x{03c0}",3,3.14159265'
SV = PVNV(0x8760c9c) at 0x817d0a4
  REFCNT = 1
  FLAGS = (IOK,NOK,POK,pIOK,pNOK,pPOK,UTF8)
  IV = 3
  NV = 3.14159265
  PV = 0x818bdf0 "\317\200"\0 [UTF8 "\x{3c0}"]
  CUR = 2
  LEN = 12
$

##</code><code>##

$ perl -MDP -wE'DPeek for DDual Data::Peek::triplevar"\x{03c0}",3,3.14159265'
PV("\317\200"\0) [UTF8 "\x{3c0}"]
IV(3)
NV(3.14159)
SV_UNDEF
IV(0)