while ( my ($key,$value) = each %ship_address ) {
   $dbh->do("update bill set ship$key = ? where session = ?", undef, $value, $session);