Select Code to Download

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

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