while ( my $row = $sth->fetchrow_hashref ) {
    print "New:\n";
    foreach my $field ( keys %{ $row } ) {
        print "$field: $row->{ $field }\n"; }}