use 5.030;
use warnings;
my @subrefs = ();
for my $i (1..3) {
    push @subrefs, sub { print $i; };
}
for (@subrefs) {
    $_->();
}