foreach (keys %$dat) {
  print "$_ = $dat->{$_}<br>\n";
}