Select Code to Download

['CHROM', 'POS', 'REF', 'ALT', 'LIST', 'SAMPLE_1A', 'SAMPLE_2A', 'SAMP
+LE_3A']
['M, '16', 'T', 'C', 'C', 'REF', 'C', 'REF']
['M', '381', 'T', 'A', 'A', T', 'REF', 'REF']
['M', '529', 'A', 'G', 'G', 'REF', 'G', 'REF']

['CHROM', 'POS', 'REF', 'ALT', 'LIST', 'SAMPLE_1B', 'SAMPLE_2B', 'SAMP
+LE_3B']
['M', '16', 'T', 'C', 'C', 'C', 'REF', 'REF']
['M', '381', 'T', 'A', 'A', 'A', 'REF', 'REF']
['M', '528', 'A', 'G', 'G', 'REF', 'REF', 'REF']

['CHROM', 'POS', 'REF', 'ALT', 'LIST', 'SAMPLE_1A', 'SAMPLE_2A', 'SAMP
+LE_3A']
['M, '16', 'T', 'C', 'C', 'REF', 'C', 'REF']
['M', '381', 'T', 'A', 'A', 'A', 'REF', 'REF']

#!/usr/bin/local/perl

...
close file1;
close file2;