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

my %hash = (
    a  => 200,
    b  => 100,
    c  => 30,
    d  => 40
);

##</code><code>##

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

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