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

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 };

print @a;
print %a;

my @arr = (9,8,7,6);
print @arr;

sub func2 {
    my @list = (1, 2, 3);
    return @list;
}
#my @result = func2();
print func();