Instead of

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
[download]

you probably want

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