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

##</code><code>##

foreach my $i (0 .. $#arraya) {

##</code><code>##

if(($#arraya >= $someReferenceValue1) && ($#arraya < $someReferenceValue2))