$x=subroutine($var_a,\@list_a,$var_b,\@list_b)