Select Code to Download

my $sth = $dbh->prepare($sqlstatement) 
    or die "cannot prepare: $DBI::errstr";

my @values  = values %$data;
my $keylist = join ',', keys %$data;
my $qlist   = join ',', ('?') x @values;