perl数组获取最后一个元素索引值的脚本

#!/usr/bin/perl -w
@a=qw(a b c d e f g);

print "$a[0]n";
print "$a[$#a]n";