BEGIN {
$short = '{ do_stuff ... }';
eval 'sub big { $something; '.$short.' $other_thing }';
}