foreach (@list) {
    my $coderef = main->can($_);
    &$coderef($_);
}