sub subroutine {
   my $var_a = shift;
   my *arr_a = shift;
   my $var_b = shift;
   my *arr_b = shift;

   #...
}