To take a reference, you need

my $arrayref = \@array;
[download]

and to dereference it, you write

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

In other words, your code should look something like

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";
    }
}
[download]