my ($hash1, $hash2) = map { {$_ => $hash->{$_}} } qw(key1 key2);