It's a mystery to me, why this line:

print "$data->{ date }, $data->{ day }, $data->{ name }\n"
[download]

prints all the values and this one gets me undefs:

 pp @{ $data }{ (@parms) };
[download]

I'm stuck on this one!