http://www.perlmonks.org?node_id=488255


in reply to Prototyping - is it necessary?

You have another bug in your code (or you transcribed it incorrectly):

(my $datafile, $chomp) = @_;
my is not going to apply to $chomp. Under strict, this should throw an error Global symbol "$chomp" requires explicit package name.

Try this instead:

my ($datafile, $chomp) = @_;
Ivan Heffner
Sr. Software Engineer, DAS Lead
WhitePages.com, Inc.