use feature 'say'; say $_ for @lines;