@filesa = split(/\n/,`cat filenamelist.txt`);

print "@mysql_query(\"INSERT INTO `comments` (`filename`) VALUES "; 

foreach(@filesa) {
    @filename=split(/./);
    print "@filename\n";
    $fish=$filename[0];
    print "('$fish'),";
}

print "\") or die('Foo!');\n";
