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

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

sub subroutine($\@$\@) { ... }

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

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

   #...
}

syntax error at -e line 4, near "my *arr_a"
syntax error at -e line 6, near "my *arr_b"

#!/usr/bin/perl
#
my $a = "abc";
my $b = "123";
my @a = qw(a b c);
my @b = qw(1 2 3);

subroutine($a,\@a,$b,\@b);

sub subroutine {
   local ($sa,*aa,$sb,*ab) = (@_);

   print "$sa\n$sb\n";
   print "@aa\n@ab\n";
}

sub subroutine{
  no strict;
  [...]
}