sub my_realy_complicated_thing { my $easy_thing = sub { ... }; my $easier_thing = sub { ... }; ... my $x = $easy_thing->( @lots_of_complicated_stuff ); #etc }