use Devel::Peek; # exports 'Dump' function
sub fn {
    my $i = 5;
    while ($i < 10) {
        $i += 1;
    }
}

my $p = fn();
Dump $p;

##</code><code>##

SV = PVNV(0x1007070) at 0x102ac18
  REFCNT = 1
  FLAGS = (PADMY,IOK,NOK,POK,pIOK,pNOK,pPOK)
  IV = 0
  NV = 0
  PV = 0x1016880 ""\0
  CUR = 0
  LEN = 10

##</code><code>##

use Devel::Peek;
sub fn {
    my $i = 5;
    while ($i < 10) {
        $i += 1;
    }
    'some string';
}

my $p = fn();
Dump $p;

##</code><code>##

SV = PV(0x1f25e20) at 0x1f47c28
  REFCNT = 1
  FLAGS = (PADMY,POK,IsCOW,pPOK)
  PV = 0x1fa22f0 "some string"\0
  CUR = 11
  LEN = 13
  COW_REFCNT = 1