use Data::Diver qw( Dive );

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

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