%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";
[download]