Hash %window missing the % in argument 1 of each() at black.pl line 1.
Hash %watches missing the % in argument 1 of each() at black.pl line 3.
Array @them missing the @ in argument 1 of pop() at black.pl line 5.
Array @moralities missing the @ in argument 1 of shift() at black.pl line 8.
Hash %aside missing the % in argument 1 of values() at black.pl line 9.
Hash %one missing the % in argument 1 of each() at black.pl line 9.
Hash %sacrifice missing the % in argument 1 of each() at black.pl line 13.
Use of "do" to call subroutines is deprecated at black.pl line 15.
Use of "do" to call subroutines is deprecated at black.pl line 16.

##</code><code>##

    # perl -X -c black.pl
    black.pl syntax OK