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

##</code><code>##

print "chain = $1\n";
push @chains, $1;