$[ = 3;
@a = (1,2,3,4,5);
print $a[$#a];