use strict;

sub foo {
   print "inside main foo ($_[0])\n";
}

sub bar {
    print "inside main bar ($_[0])\n";
}

foreach my $sub (qw(foo bar)) {
    $main::{$sub}->($sub);
}