perl -de 0 DB<1> p join " ", '2'..'1' DB<2> p join " ", '2'..'9' 2 3 4 5 6 7 8 9 DB<3>