Select Code to Download

#!/usr/bin/perl -w
use strict;
...
for my $cnt (0 .. $#{$ar}) {
    printf "\t %s[%d]=%s\n", $arrname, $cnt, $ar->[$cnt];
}

roboticus@swill ~/PerlMonks
$ ./var_array_names.pl  even
...
         odd[2]=5
         odd[3]=7
         odd[4]=9