Title: "title from array"
Author: "author from array"
Date: "Date from array"

##</code><code>##

while (@title, @author, @date) {
    print join ': ', map shift @$_ // 'NULL', \@title, \@author, \@date;
    print "\n";
    }