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

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