print scalar @{$array[0]};