my($a, @list, $listref);
$a = $#list;
$a = $#$listref;
$a = scalar(@list)
