sub handler {
my $r = Apache2::Request->new(shift);
my %in_cookies = Apache2::Cookie->fetch ($r);
my $session = $in_cookies{"ID"} && $in_cookies{"ID"}->value;
...

##</code><code>##

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