Str.samecase reimplementation mark 2

Implemented the array version found at
https://gist.github.com/perlpilot/bd0939415bd63e35cdc3 which includes
the code used for testing and timing the implementations.