#!/usr/bin/perl

@list = qw(a b c d);

$reflist = \@list;

#$ref{$reflist} = $reflist;
$ref{'key'} = $reflist;

push(@refarray,keys %ref);

$refarrayptr = \@refarray;

foreach $ralias (@{$refarrayptr})
{
	print "Initial content of $refarrayptr -> " . @{$refarrayptr}[0] . "\n";
	$raliashash = $ralias;
	
	$reference = $ref{$raliashash};

	$ralias = ${$reference}[0];
	
	print "Final content of $refarrayptr -> " . @{$refarrayptr}[0] . "\n";
}