Select Code to Download

A1T1
A2T3

C1G1
C1G2
C2G1

A1C1

#!/usr/bin/perl 
use warnings; 
...
   } # Curly brace for Entry 2 ends: 
} until ($entry==2); # Square bracket for do-until: 
exit;

Microsoft Windows [Version 6.1.7600]
...
 {}

C:\Users\x\Desktop>

~A1T1C1G1A1C1~
~A1T1G1G2A1C1~
...
~A2T3C1G1A1C1~
~A2T3CAG2A1C1~
~A2T3C2G1A1C1~