Select Code to Download

my @array = qw/b d a c/;

...
    c  => 30,
    d  => 40
);

my @keys = qw(b d a c);
my @values = qw(200 100 30 40);

my %hash;
@hash{@keys} = @values;