-      foreach $field (keys %$record){
+      foreach $field (@{$sth->{NAME}}) {