sub new {
    ...
    my @head = (1,2,3);
    my $cols = $#head;
    ...
};

##</code><code>##

sub new {
    ...
    my $head = [1,2,3];
    my $cols = $#{$head};
    ...
};