my $sth_ins = $dbh->prepare("INSERT ....");
my $sth_sel = $dbh->prepare("SELECT ....");
...
$sth_ins->execute();
...
$sth_sel->execute();
while( my $row = $sth_sel->fetchrow_arrayref() ){
  ...
}