sub MainSub {
   my $name = shift;
   print "My name is $name\n";
}

sub sub1 {MainSub('sub1')}
sub sub2 {MainSub('sub2')}
sub sub3 {MainSub('sub3')}