for (0..2) { my $i = $_; push @funcs, sub { $i * $_[0] }; };