$ perl -e '@array=(qw(ant bat cat)); $[ = 94; print $array[95]."\n"'
bat

$ perl -e '@array=(qw(ant bat cat)); $[ = -9; print $array[-8]."\n"'
bat