foreach($id_chap)
 {
    print "\t", $_->[0],"\n";
    print "\t", $_->[1],"\n";   
}