Select Code to Download

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

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

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