#!/usr/bin/perl

use perl5i::latest;
use Test::More;

note "perl5ifaq entry"; {
    my %hash1 = (foo => 23, bar => 42, biff => 99);
    my %hash2 = (           bar => 99, biff => 42, yiff => 23);

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

    is_deeply scalar @uniq->sort, scalar [qw(foo bar biff yiff)]->sort;
}

done_testing;