@subs = map { my $something = $_; sub { blah( $something, ... ); } } @data;