my $arrayref = \@array;

##</code><code>##

my @array = @$arrayref;     # whole array
# or
my $elem = $arrayref->[0];  # individual element

##</code><code>##

use warnings;
use strict;

my @array = (1,2,3,4,5);
my $arrayref = \@array;

mysub($arrayref);

sub mysub {
    my ($aref) = @_;

    for my $i (0 .. $#$aref) {
        print "value of i is:$i \n";
        print "Array Value:$aref->[$i] \n";
    }
}