print join(',' => @$row[2,3,4]),
        "\n\tfound in '$gen_file':\n\t\t", join ', ' => @$row;

##</code><code>##

34787800,A,G
    found in 'pm_1079751_source1.gen':
        C1, M4, 34787800, A, G, ... source1 info ...

##</code><code>##

34787800,A,G