print $1 qq{\n};
$chain=$1;
push @chains, $chain;    #I want to extract the chains....A,B,C,D,E,F,H,I,J,K,L