foreach my $row ( @id_chap ) {
  foreach my $col ( @{$row} ) {
    print "\t$id_chap[$row][$col]\n";
  }
}