Rather than using simple print statements, do:

use Data::Dumper;
$Data::Dumper::Terse = 1;
$Data::Dumper::Useqq = 1;
...
print "partnum: ", Dumper($partnum), "\nkeys:\n", Dumper(keys %part_fi
+le);
[download]