Select Code to Download

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

  my ($hash1, $hash2) = _insert_perl_magic_;

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