#!/usr/bin/perl 

use strict;
use warnings;

use Clone qw(clone);

# $b is a reference to an array.
my $b = [ "x", "y", "z" ];

# this statement is equivalent to 

$b = \("x", "y", "z");

# also equivalent to
my @b = ("x", "y", "z");
$b = \@b;


# here, $b is a reference to a hash.
$b = { "g1" => "h1", "g2" => "h2" };
# this statement is equivalent to 
my %b = ("g1" => "h1", "g2" => "h2");
$b = \%b;
