sub pushsome {
  my $AoAref = shift;
  for (my $i = 0 ; $i <= $#_ ; $i++) {
    push @{$AoAref->[$i]}, $_[$i];
  }
}