use strict;
use warnings;

my @array=(1,2,3);
my %hash = ();

$hash{'string'} = \@array;

print $hash{'string'}[0];
print $hash{'string'}[1];
print $hash{'string'}[2];
[download]

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.