table(*){
        my  $vInput = shift;
        if(ref $vInput eq 'CODE')       {$vInput->(); }
        ### fill in the rest...
    }
    

##</code><code>##

    table sub {
        for (0 .. 3){
            ### fill in the rest...
        }
    }