#!/usr/local/bin/perl
use strict;
use warnings;

my %a = (a => 1, b => 2);
my $array_ref = [1, 2, 3, 4];
my $hash_ref = { a => 1, b => 2 };
print $array_ref;
print $hash_ref;

my @a = @{ $array_ref };
my %a = %{ $hash_ref };