you cannot pass two arrays to a subroutine without loosing the information which entry belongs to which array. a subroutine call flattens array contents to a long list.
best way usually is to pass references of the arrays.

Column(\@act_table, \@colm);

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

perlsub perlref

update: seems to be a crosspost: http://perlguru.com/gforum.cgi?post=49360