my ($id_snp, $id_assay, $session, $load_set, @lines) = @_;