Select Code to Download

PERL_PERTURB_KEYS=0 PERL_HASH_SEED=1 perl -lE 'say for keys %{ { qw( a
+ 1 b 2 c 3 d 4 ) } }'
c
d
a
b

#! /usr/bin/perl
use warnings;
...
}

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