sub something { 
   my $i = whatever;
   ... sub { closure involving $i }
}