Print file lines in perl