Select Code to Download

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

foreach $sub (@listofsubs) {
  $self->$sub()
}

foreach $sub (@listofsubs) {
  if (not ref $sub)
...
  }
  $sub->();
}