for file in `ls my_input_dir`; do perl -n -E 'print "$ARGV[0]\t$_"' my_input_dir/$file; done