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

##</code><code>##

foreach (@list) {
    my $coderef = UNIVERSAL::can('main', $_);
    &$coderef($_);
}

##</code><code>##

foreach (@list) {
    main->$_($_);
}