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