in reply to passing an array and some scalars to a subroutne

Maybe you want? 
my ($id_snp, $id_assay, $session, $load_set, @lines) = @_;

[download]

In Section Seekers of Perl Wisdom