Select Code to Download

my $sth = $dbh->prepare(q{
  INSERT
    INTO table
         (col1, col2, col3)
  VALUES (?, ?, ?)
});

my $tuple = $dbh->selectrow_array(q{
    SELECT col1
      FROM table1
...
  {},
  $someval,
);

my $sth_get_id = $dbh->prepare(q{
  SELECT id
    FROM contact
...

  print "$email -> $id\n";
}

my $emails = $dbh->selectcol_arrayref(q{
    SELECT email
      FROM contact
...
);

foreach my $email (@$emails) { ...