Select Code to Download

sample file1:
ast578    61218    15755    +    C/A
...
61218    42547    A > G    3    7    5    4    1    6
61218    67955    A > G    0    10    0    9    3    4
61218    68625    G > A    0    10    0    8    1    5

61218    15755    A > T    0    4    0    0    2    7    ast578
61218    15856    T > C    3    2    0    3    1    8    ast579
61218    67955    A > G    0    10    0    9    3    4    ast581

#!/usr/bin/perl
use warnings;
...
        }
    }
}