use strict;
my $filename = "File_Name_One";
my $letter = "A";
my $filecontents = "";

open( FH, "<$filename" ) || die "unable to open $filename ($!)\n";
{
   local( $/ );
   undef $/;
   $filecontents = <FH>;
}
close( FH );

my $firstvar = $dbh->quote($filecontents);
my $secondvar = $dbh->quote($letter);

my $statement = "Insert into tableOne (filename, letter)  values ($filecontents, $letter)";