#!/usr/bin/awk -f { a[l] = $0 l++ print NR" "$0 } END{ print "Numeric subscripts:" for (i = l - 1; i >= 0; i--) print i": "a[i] print "Actual subscripts:" for (i in a) print i": "a[i] }