#!/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 @result;