the objective is to get a fast code

If you are trying to improve performance why are you duplicating whole arrays inside your subroutine when they are only referenced read-only?

my (@arraya,)             = @$listaref; 
my (@arrayb)              = @$listbref;
[download]

THIS MAKE NO SENSE!

Let me try it again.

Your code snippet STILL makes no sense.

You loop over the indices of arrayA:

foreach my $i (0 .. $#arraya) {
[download]

Then, in each iteration, you compare the highest index of arrayA $#arraya with two "reference values":

if(($#arraya >= $someReferenceValue1) && ($#arraya < $someReferenceVal
+ue2))
[download]

None of these 3 values change anywhere in the loop, so you are performing the same exacts set of tests over and over, and you will take the same action over and over. No wonder your code is slow. No wonder your code is slow. No wonder your code is slow. No wonder your code is slow. No wonder your code is slow. No wonder your code is slow. No wonder your code is slow. Repeating the same tests over and over is pointless.

YOUR CODE MAKES NO SENSE! If you want help, don't post garbage 'minds-eye' pseudo-code.

You said above that my code was "faster than your implementation". So, post "your implementation" -- ie. runnable code -- and maybe someone will try to help you.