#!/usr/bin/perl
use strict;
use warnings;

my @arr_val=(1,2,3,4,5,6,7,8);
my $arr_ref=\@arr_val;

print $$arr_ref[-1];
print "\n";
print $$arr_ref[@$arr_ref-1];
print "\n";
print $#arr_val;
print "\n";
print $#$arr_ref;