perlもjsとおんなじように書けばおんなじようにbindできるけどperlのことだからもっとさくっとかけたりする予感 失敗作 my @a; for ( $i = 0; $i < 10; $i ++ ) { $a[$i] = sub {$i*$i}; } exit $a[4]->(); # 100 正解 my @a; for ( $i = 0; $i < 10; $i ++ ) { $a[$i] = sub { my $i = shift; return sub {$i*$i}; }->($i); } exit $a[4]->(); # 16