Help for this page
XXX XXX XXX XXX XXX XXX
A.tab XXX XXX XXX A.tab XXX XXX XXX B.tab XXX XXX XXX B.tab XXX XXX XXX
for file in `ls my_input_dir`; do perl -n -E 'print "$ARGV[0]\t$_"' my +_input_dir/$file; done