perl Data-Dump