use Data::Dumper;
my @names = qw/ A B C D /;
my %order;
@order{ @names } = @names;
print Dumper \%order;
__END__
Prints:
$VAR1 = {
          'A' => 'A',
          'D' => 'D',
          'C' => 'C',
          'B' => 'B'
        };