my @all_subs = qw (sub1 sub2);
for my $sub (@all_subs) {
 wrap $sub, pre => sub {
 print "Calling '$sub' in file: $0\n";
 };
}