perl -e 'printf "%i\t%s\n", (${!}=$_)x2 for 0..127'