@listofsubs = qw(sub1 sub2 sub3);
foreach $sub (@listofsubs) {
  #something to call $sub;   
}

sub sub1 {
  #does sub1 stuff
}

sub sub2 {
  #does sub2 stuff
}

sub sub3 {
  #does sub3 stuff
}