in reply to print to output problem

You just want to print $val within the loop.
We're not really tightening our belts, it just feels that way because we're getting fatter.

In Section Seekers of Perl Wisdom