sub foo {
 my ($query_ref, $session_ref) = @_;
} 

##</code><code>##

sub mysub {
my a = shift; #1
my $b = shift; #2
... and so on 
##</code><code>##

 sub mysub {
 my @p = @_; #the array 1,2,3....10
... 
##</code><code>##

 sub mysub {
my ($a, $b, $c, ....$j) = @_; #$a = 1, $b = 2, ... $j = 10