Select Code to Download

use strict;
use warnings;
...

print("File size:    ", length($file),              " bytes\n");
print("Memory usage: ", total_size(\%ValArrayByID), " bytes\n");

File size:    64 bytes
Memory usage: 922 bytes