my $dref = @$list->[0];
  my $num =  $#{$dref};