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