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

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