{
 our ($cont, $foo, $bar);
 my %transformations = (
   xxx => sub { use_the($foo,'and', $bar); as_you_need($cont); },
   ...
 );
 }
 ...
 for my $xform (@{$self->{xforms}}) {
   our ($cont, $foo, $bar);
   local $foo = get_foo();
   local $bar = get_bar();
   local $cont = $container;
   $transformations{$xform}->();
 }