for my $title {
    print $title , " => ", find_year($title), "\n";
} 

##</code><code>##

while( <...>) {
    ...
    my ($title) = ...;

    print "Have title '$title'\n";

    print $title , " => ", find_year($title), "\n";
};