@listofsubs = (\&sub1, \&sub2, \&sub3);
foreach $sub (@listofsubs)
{
  $sub->();
}