while (my ($k, $v) = each %data) {
  print "key is $k, value is $v\n";
}