our $length=scalar @$val;
 for (0...$length-1)