subroutine(\@list)

##</code><code>##

$count=$#(@$listref);

##</code><code>##

"Bizarre copy of ARRAY in leave at..."

##</code><code>##

my @local_array=@$list;
my $count=$#local_array;