use Data::Diver qw( DiveVal );

my @paths = ('key1', 'key2:key22', 'key2:key23');

for my $path (@paths) {
   my @path = split(/:/, $path);
   my $new_val = ...;
   DiveVal(\%hash, map \$_, @path) = $new_val;
}