Select Code to Download

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

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