use warnings;
use strict;

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

my $size=@array;

mysub($arrayref);

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

        for ( my $i=1; $i<=$size; $i++ ) {
             print "value of i is:$i \n";
             print "Array Value:@aref[$i] \n";
        }
}