Add array keys experiments with reversed array for Perl