#!/usr/bin/perl -w
use strict;
use warnings;

my %hr = (
    'default' => [ 1 .. 9],
    'even'    => [ 0, 2, 4, 6, 8],
    'odd'     => [ 1, 3, 5, 7, 9],
);

my $arrname = shift || 'default';

print "Array $arrname contains:\n";

my $ar = $hr{$arrname};
for my $cnt (0 .. $#{$ar}) {
    printf "\t %s[%d]=%s\n", $arrname, $cnt, $ar->[$cnt];
}

##</code><code>##

roboticus@swill ~/PerlMonks
$ ./var_array_names.pl  even
Array even contains:
         even[0]=0
         even[1]=2
         even[2]=4
         even[3]=6
         even[4]=8

roboticus@swill ~/PerlMonks
$ ./var_array_names.pl  odd
Array odd contains:
         odd[0]=1
         odd[1]=3
         odd[2]=5
         odd[3]=7
         odd[4]=9