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