len

From: Robin (robin_at_csf.edu)
Date: 12/30/03 

Date: Tue, 30 Dec 2003 15:49:05 -0700

what would this do?

sub array_abslen

{

my (@array) = @_;

my ($len);

$len = @array;

$len = $len - 1;

return ($len);

}

thanks,

-Robin