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