my $hash = {
    key1 => 'value1',
    key2 => 'value2',
  };

  my ($hash1, $hash2) = _insert_perl_magic_;


##</code><code>##

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