@cols = qw/DATE TITLE URL COMMENTS/;
@all_array = map{ my %h; @h{@cols} = split /\|/; \%h}<FILE>;