my ($var1, $var2, $parray) = @_;