my @columns = qw/ Title Author Year Journal
                 # ...
                  /;
for my $record (@results) {
    my $index = 0;
    for (split /\|/, $record) {
        printf "%s: %s$/", $columns[$index], $_ if $_;
        $index++;
    }
}