gistfile1.txt

    if $a ~~ Hash {
        my $keys = set $a.keys, $b.keys;
        say $keys.perl;
        my @keys = $keys.keys.sort;
        for @keys -> $k {
            return Order::Decrease unless $a{$k} :exists;
            return Order::Increase unless $b{$k} :exists;
            (my $r = $a{$k} cmp $b{$k}) && return $r;
        }
    }