Anon Array

Hi,

I'm looking for a better way to use the contents of an anonymous array.
This is what I've done so far:

#!/usr/bin/perl
#

use strict;
use Data:umper;

my (%test,@numbers,$key,$value,$index);

@numbers = (1,2,3);

$test{"base_0"} = [ @numbers ];
print STDOUT ("test\{\"base_0\"\}= ".Dumper($test{"base_0"})."\n");
$test{"base_10"} = [ map ($_+10, @numbers)];
print STDOUT ("test\{\"base_10\"\}= ".Dumper($test{"base_10"})."\n");

foreach $key (sort keys (%test))
{
print STDOUT ("ref\(test\{$key\}\)= ".ref($test{$key})."\n");
$index = 0;
until (!$test{$key}[$index])
{
print STDOUT ("value\[$index\]= ".$test{$key}[$index]."\n");
$index ++;
}
}

It's kinda ugly to do it this way. Any suggestion(s)? Thanks.

The Owner