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