perl -le 'print join ( "", map { " " x 9 . $_ } 1..8 ), "\n", "1234567890" x 8'