my ($id_snp, $id_assay, $session,  $load_set) = @_; #these variables
my (@lines) = @_;                                   #this array