#!/usr/bin/perl

@arr_val=(1,2,3,4,5,6,7,8);
$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;