%Hash = (
				ArrayInHash => [1,2,3,4],
				);
				


print "Array in hash: @$Hash{ArrayInHash}";

@Array = @$Hash{ArrayInHash};
print "\nArray: @Array";

$ArrayRef = $Hash{ArrayInHash};
@Array2 = @$ArrayRef;
print "\nArray from ordinary scalar reference: @Array2";

print "\n\nTrying a foreach loop with the hash";
foreach(@$Hash{ArrayInHash})
{
	print "\n$_";
}

print "\n\nTrying a foreach loop with the scalar array reference";
foreach(@$ArrayRef)
{
	print "\n$_";
}