for my $row (@aoa[1..$#aoa])

{ 
  @ID = $row->[0]; 
  @data = $row->[1..$#aoa];
}

  
print $OUT1 "$_\n" for @ID;
print $OUT2 "$_\n" for @data;