#!/usr/bin/perl

use strict;
use warnings;

use Devel::Peek;

my $var = 13;         Dump($var);  print "\n\n";
my $dummy = q...$var; Dump($var);

__END__
SV = IV(0x8194b2c) at 0x8193d70
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,IOK,pIOK)
  IV = 13


SV = PVIV(0x8184448) at 0x8193d70
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,IOK,POK,pIOK,pPOK)
  IV = 13
  PV = 0x818bca0 "13"\0
  CUR = 2
  LEN = 3