$groups[$gcount]{sub}=[@subgroup];
my $first_data =  $groups[0]{sub}[0];