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