my @subs = ( 'default', 'sub1', 'sub2');

foreach my $sub (@subs)
{

   &{$sub};
}