my $lookup = '
    _____
';
$lookup =~ s/_____/'$a = $contracts{1}[0];' x NUM_ACCESSES/e;

my $refit = '
    my $r = $contracts{1};
    _____
';
$refit =~ s/_____/'$a = $r->[0];' x NUM_ACCESSES/e;