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

my @array = ('one','two','three');
my $aref = \@array;
my %hash = ();
$hash{'aref'} = $aref;
print "Array length is:", scalar(@{$hash{'aref'}}), " \n";