#!/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(); #my ($a, $b, $c) = func2(); print @result;