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