#!/usr/bin/env perl -l

use strict;
use warnings;

my $hashref = { a => 1, b => 2 };
my @array = qw{c d e};

use constant {
    HR_ARRAY => [ sort values %$hashref ],
    AREF => \@array,
};

BEGIN { print join ' ', 'B1:', sort(keys %$hashref), @array }
BEGIN { print join ' ', 'B2:', @{+HR_ARRAY}, @{+AREF} }

INIT { @array = qw{f g h} }
INIT { print join ' ', 'I1:', sort(keys %$hashref), @array }
INIT { @array = qw{i j k} }
INIT { print join ' ', 'I2:', @{+HR_ARRAY}, @{+AREF} }

print join ' ', 'R1:', sort(keys %$hashref), @array;
print join ' ', 'R2:', @{+HR_ARRAY}, @{+AREF};