As bellaire pointed out, you load the first 4 args in both cases, I'm guessing what you meant was:

.
my ($id_snp, $id_assay, $session,  $load_set) = splice @_, 0, 4; #thes
+e variables
my @lines = @_;          #this array 
.
.
[download]

Update: Mis-spelt bellaires monika