Help for this page
#!/usr/bin/perl ... print Dumper(\%temp_records); return; }
Before call to DoStuff ... $VAR1 = {};