#!/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 func1 {
    return 'a';
}
my $result = func1();
print $result;

sub func2 {
    my @list = (1, 2, 3);
    return @list;
}
#my @result = func2();
my ($a, $b, $c) = func2();
print func2();