foreach my $MySubName (@list) {
    &{\&$MySubName}($MySubName);
}