#!/usr/bin/perl
@A=(1,2,3);
print scalar @A-1; # Index is "scalar @A - 1" !!