$ perl -le 'print ~~$#foo'
18446744073709551615
$ perl -Minteger -le 'print ~~$#foo'
-1