#!/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];
}