What does pp $data give, and what version of perl do you have ?