foreach my $i (keys %$update) { #...