gistfile1.txt

┌─[tadzik@dagobah]─[~] 
└─[%]─> cat test.pl 
use 5.018;

my @closures;

for my $i (1..10) {
        push @closures, sub { say "I'm sub number $i" }
}

for (@closures) {
        $_->();
}
┌─[tadzik@dagobah]─[~] 
└─[%]─> perl test.pl
I'm sub number 1
I'm sub number 2
I'm sub number 3
I'm sub number 4
I'm sub number 5
I'm sub number 6
I'm sub number 7
I'm sub number 8
I'm sub number 9
I'm sub number 10