#!/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 = (14, 25, 36);
    return @list;
}
my @result = func2();
print @result;