Select Code to Download

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

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

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

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