$ perl -Mstrict -Mwarnings -E '
    my %A = (a => 1, b => 2, D => 3);
    my %Z = (z => 9, y => 8, D => 7);
    (\ my %all_keys)->@{keys %A, keys %Z} = ();
    say for "@{[sort keys %all_keys]}";
'
D a b y z

##</code><code>##

$ perl -Mstrict -Mwarnings -E '
    my %A = (a => 1, b => 2, D => 3);
    my %Z = (z => 9, y => 8, D => 7);
    (my %all_keys)->@{keys %A, keys %Z} = ();
    say for "@{[sort keys %all_keys]}";
'
D a b y z

##</code><code>##

$ perl -Mstrict -Mwarnings -MO=Deparse -E '
    my %A = (a => 1, b => 2, D => 3);
    my %Z = (z => 9, y => 8, D => 7);
    (\ my %all_keys)->@{keys %A, keys %Z} = ();
    say for "@{[sort keys %all_keys]}";
'
use warnings;
use strict;
use feature 'current_sub', 'bitwise', 'evalbytes', 'fc', 'isa', 'module_true', 'postderef_qq', 'say', 'signatures', 'state', 'unicode_strings', 'unicode_eval';
my(%A) = ('a', 1, 'b', 2, 'D', 3);
my(%Z) = ('z', 9, 'y', 8, 'D', 7);
@(\my %all_keys){keys %A, keys %Z} = ();
say $_ foreach (join $", @{[sort(keys %all_keys)];});
-e syntax OK

##</code><code>##

$ perl -Mstrict -Mwarnings -MO=Deparse -E '
    my %A = (a => 1, b => 2, D => 3);
    my %Z = (z => 9, y => 8, D => 7);
    (my %all_keys)->@{keys %A, keys %Z} = ();
    say for "@{[sort keys %all_keys]}";
'
use warnings;
use strict;
use feature 'current_sub', 'bitwise', 'evalbytes', 'fc', 'isa', 'module_true', 'postderef_qq', 'say', 'signatures', 'state', 'unicode_strings', 'unicode_eval';
my(%A) = ('a', 1, 'b', 2, 'D', 3);
my(%Z) = ('z', 9, 'y', 8, 'D', 7);
@all_keys{keys %A, keys %Z} = ();
say $_ foreach (join $", @{[sort(keys %all_keys)];});
-e syntax OK

##</code><code>##

$ perl -v | head -2 | tail -1
This is perl 5, version 39, subversion 3 (v5.39.3) built for cygwin-thread-multi

##</code><code>##

$ perl -v | head -2 | tail -1
This is perl 5, version 30, subversion 0 (v5.30.0) built for cygwin-thread-multi

##</code><code>##

use feature 'current_sub', 'bitwise', 'evalbytes', 'fc', 'postderef_qq', 'say', 'state', 'switch', 'unicode_strings', 'unicode_eval';