while (<DATA>) {
    my @line = split;
    my %hash;
    @hash{+KEYS} = @line;
    push @array, {%hash};
}

##</code><code>##

while (<DATA>) {
    my %hash;
    @hash{ +KEYS } = split;
    push @array, \%hash;
}