my $high = @$array - 1;
my $high = $#$array;