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";
    }
}