in reply to big job, starting with little script

You're [also] looking up $_, but reading into $line. Try 
while(<FILE>)

[download]
instead.
Caution: Contents may have been coded under pressure.

In Section Seekers of Perl Wisdom