perl -MO=Deparse -e 'print $n[inf]'

##</code><code>##

print $n[9**9**9];

##</code><code>##

perl -MO=Deparse -e 'print $n["inf"]'

##</code><code>##

perl -MO=Deparse -e 'print $n[-inf]'

##</code><code>##

print $n[-'inf'];

##</code><code>##

perl -MO=Deparse -e 'print "", inf==0 ? "a" : "b", 'inf'==0 ? "c" : "d", -inf==0 ? "e" : "f"'

##</code><code>##

print '', 'inf' == 0 ? 'a' : 'b', 'inf' == 0 ? 'c' : 'd', -'inf' == 0 ? 'e' : 'f';

##</code><code>##

perl -MO=Deparse -e '$n[inf], $n[1+inf], $n[-inf] = inf'

##</code><code>##

$n[9**9**9], $n[1 + 'inf'], $n[-'inf'] = 'inf';

##</code><code>##

This is perl, v5.8.8 built for i486-linux-gnu-thread-multi