Unit tests for array keys Perl