use strict;
use warnings;
my %in;
print in{'records'};
Unquoted string "in" may clash with future reserved word at - line 4.
__END__
Name "main::in" used only once: possible typo at - line 4.
Odd number of elements in anonymous hash at - line 4.
print() on unopened filehandle in at - line 4.
[download]

You want $in{records} and $in{"REPORTID_$linecounter"} ... perlintro