Select Code to Download

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

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