my $dref = @$list;
 my $num = "$#{$dref}"