my %hash = %{ $data };

while (my ($key, $value) = each %hash) {
    print "$key : $value \n";