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