Don't forget my favorite way to read text files Tie::File.

use Tie::File;

my @file;
tie @file, 'Tie::File, 'path/to/file';
[download]

jjdraco
learning Perl one statement at a time.