#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use builtin qw{ stringify };
use Devel::Peek qw{ Dump };

my $v = 100;
for (sub { scalar shift }, sub { stringify shift }) {
    $_->($v);
    Dump $v;
}