Hello,

Perhaps the problem is in your %data, you should use the Data::Dumper module to print out the structure of %data to make sure that you stored the right thing.

use Data::Dumper;
print Dumper(\%data);
[download]

Regards,