foreach my $record (@records) {
   foreach my $key (keys %$record) {
      my $val = $record->{$key} || '';
      print "$key:$val";
      print $q->br;
   }
}