Help for this page

Select Code to Download


  1. or download this
    my ($hash1, $hash2) = map { {$_ => $hash->{$_}} } qw(key1 key2);