#! /usr/bin/perl -w
use strict;

my @arr_out1 = create_arr();
my $out_ref = \@arr_out1;
print "outref: $out_ref\n";

my $ref = create_ref();
print "outside subroutine ref is: $ref\n";

update1($ref,4);
update2($ref,5);
print "@$ref\n";

sub create_arr {
    my @arr = (1,2,3);
    my $inref = \@arr;
    print "inref: $inref\n";
    return @arr;    
}

sub create_ref
{
    my @array = (1,2,3);
    my $inref = \@array;
    print "inside subroutine ref is: $inref\n";
    return $inref;
}

sub update1
{
    my $arrayref = shift;
    my $add = shift;
    push(@$arrayref,$add);
}

sub update2
{
    my $arrayref = shift;
    my @aray = @$arrayref;
    my $add = shift;
    push(@aray,$add);
}