for my $name (qw(sub1 sub2 sub3)) {
    my $n = $name; # it is important to declare a new scalar for each subroutine you create
    *{$name} = sub { MainSub("sub1"); };
}