#! /usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

if (($ENV{PERL_PERTURB_KEYS} // 1) != 0 || ($ENV{PERL_HASH_SEED} // 0) != 1) {
    $ENV{PERL_PERTURB_KEYS} = 0;
    $ENV{PERL_HASH_SEED} = 1;
    exec $^X, $0, @ARGV
}

say for keys %{ { qw( a 1 b 2 c 3 d 4 ) } }, @ARGV;