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