Unit tests for Perl array key exists