map @ I# ^[j #### ab sd $sth = $dbh->prepare($sql); ab se $sth->execute ab sa $sth->fetchrow_hashref; ab ss $sth->finish;