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