in reply to to interchange line no of file & print

Wow, you don't learn do you.
Do you mean that you need to merge two files by printing alternate lines from each?

To do that you could

This assumes you want to continue adding data after one of the files is empty and that you don't want to insert blank lines as placeholders for the empty file

print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."