perl -cw test.pl
Bareword "a" not allowed while "strict subs" in use at test.pl line 14.
Bareword "a" not allowed while "strict subs" in use at test.pl line 18.
test.pl had compilation errors.