Column(\@act_table, \@colm);

sub Column {
    my ($actcol, $col) = @_;
    # now iterate over @$col instead of @col
}