Select Code to Download

my %hash3 = (%hash1, %hash2);
my @uniq  = keys %hash3;

my @uniq = keys (%hash1, %hash2);

#! perl
use Modern::Perl;
...
my %hash2 = (homer => 'marge', fred   => 'wilma');
my @uniq  = keys { %hash1, %hash2 };
dd @uniq;

23:05 >perl 464_SoPW.pl
("barney", "homer", "fred")

23:08 >