If you're benchmarking, one comment is that you're wasting time and memory making a copy of the input array. You can drop my @array=@$array; and then change your $array[...'s into $array->[...'s

Also, your brackets aren't lining up right. I don't think there are any styles that would allow for:

}
}
[download]