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

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