seq 1 30 \
| perl -aple 'push@F,"\tx"'