#!/usr/bin/perl -w
use strict;

my @t = (1,2,3);
my @d;

for my $i (@t) {
        push @d, sub { print "$i\n" };
}

$_++ for @t;
&$_ for @d;

__END__
2
3
4