while (my ($key, $value) = each %data) {
  ;
}