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