my @s = ('1','2','3');
my @b = ('A','B',C');
print " s="."@s"; #s értéke a hívás előtt
print " b="."@b\n"; #b értéke a hívás előtt
elj(@s,@b); #eljáráshívás két tömbbel
exit;

sub elj {
 my (@s,@b) = @_; #paraméterátvétel
 print " s="."@s"; #s értéke belül
 print " b="."@b\n"; #b értéke belül
}

Output:
 s= 1 2 3 b= A B C
 s= 1 2 3 A B C b=

my @s = ('1','2','3');
my @b = ('A','B','C');
print " s="."@s"; #s értéke a hívás előtt
print " b="."@b\n"; #b értéke a hívás előtt
elj(\@s,\@b); #eljáráshívás két tömbcímmel
exit;

sub elj {
 my ($s,$b) = @_; #paraméterátvétel
 print " s="."@$s"; #s értéke belül
 print " b="."@$b\n"; #b értéke belül
}

Output:
 s= 1 2 3 b= A B C
 s= 1 2 3 b= A B C