in reply to opening a file passed into sub as ref

You might have a newline character. Tip #3 from the Basic debugging checklist: chomp 
chomp @lparstat;

[download]

In Section Seekers of Perl Wisdom