my @mars_subs = qw( add increment );

for my $sub (@mars_subs) {
    wrap $sub, pre => sub {
        print "Calling '$sub'\n";
    };
}