The programs pulls a symbol from a table and then uses that symbol to lookup other values, everything works well except for the last statement where I try to insert that data into another table where I get the "die"

#!/usr/bin/perl

# PERL MODULES WE WILL BE USING

# use strict;
# use warnings;
# use diagnostics;

use DBI;
use DBD::mysql;
use Finance::Quote;
use Data::Dumper;

# CONFIG VARIABLES
my $platform = "mysql";
my $database = "foci";
my $host = "localhost";
my $port = "3306";
my $user = "cparrett";
my $pw = "cayman";
my $DIVTABLE="dividends";

# DATA SOURCE NAME
my $dsn = "dbi:mysql:$database:localhost:3306";

# PERL DBI CONNECT
my $connect = DBI->connect($dsn, $user, $pw)or die "NOT WORKING";

# PREPARE THE QUERY To GET SYMBOL FROM SECTORS TABLE
my $GET_SYMBOLKEY = "SELECT SYMBOL FROM sectors";
my $SYMBOLKEY = $connect->prepare($GET_SYMBOLKEY );

# EXECUTE THE QUERY, ONLY NEED TO EXECUTE ONCE
$SYMBOLKEY->execute();

my $symbol;

# BIND TABLE COLUMN SYMBOL TO VARIABLES $symbol
$SYMBOLKEY->bind_columns(undef,\$symbol);



# DEFINE A QUERY TO INSERT DATA INTO DIVIDENDS TABLE
my $GETDIVDATA= "INSERT INTO $DIVTABLE(SYMBOL, DATE, DIV, EXDIV, DIVDA
+TE, DIVYIELD, EPS)
VALUES (?,?,?,?,?,?,?)";
my $DIVDATA = $connect->prepare($GETDIVDATA)or die "NOT WORKING";


#GET THE FINANCIAL DATA
 my $q = Finance::Quote->new;

# LOOP THROUGH RESULTS

while($SYMBOLKEY->fetch()) {

my %data;
%data = $q->fetch('nyse', "$symbol");

my $S=$symbol;
my $D=$data{$symbol,"date"};
my $DV=$data{$symbol,"div"};
my $EDV=$data{$symbol,"ex_div"};
my $DVD=$data{$symbol,"div_date"};
my $DVY=$data{$symbol,"div_yield"};
my $ES=$data{$symbol,"eps"};

$DIVDATA->execute($S,$D,$DV,$EDV,$DVD,$DVY,$ES) or die "NOT WORKING";

}
[download]