Help for this page

Select Code to Download


  1. or download this
    my %seen;
my @uniq = grep { !$seen{$_}++ } keys(%hash1), keys(%hash2);
  2. or download this
    use List::MoreUtils qw(uniq);
my @uniq = uniq( keys(%hash1), keys(%hash2) );