in reply to peeling the top 10 lines from a file

try ... 
use strict;

[download]
and you'll see that you're missing a $ somewhere
---
my name's not Keith, and I'm not reasonable.

In Section Seekers of Perl Wisdom