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

##</code><code>##

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

##</code><code>##

foreach $sub (@listofsubs) {
  if (not ref $sub)
  {
    $sub = __PACKAGE__->can($sub);
  }
  $sub->();
}