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