fix perl 20 keys on reference warning