in reply to Initialize a hash array

Or even:
my %data;
@data{qw(keyA   keyB   keyC   keyD  )}
    = qw(valueA valueB valueC valueD);

[download]

If you prefer a vertical alignment.

In Section Seekers of Perl Wisdom