while (<FILE>) {
    my %hash; # make a new hash and assign values 
    # keys are DATA .. COMMENTS, and values come from
    # the split.
    @hash{qw/DATE TITLE URL COMMENTS/} = split /\|/;
    push @all_array, \%hash;
}
close(FILE);