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