Select Code to Download

while (<FILE>) {
    my %hash; # make a new hash and assign values 
...
    push @all_array, \%hash;
}
close(FILE);

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