##
my ($column) = $sth->fetchrow_array();
##
##
my $count = @array; # gets the array size
my ($first) = @array # gets the first item
##
##
$dbh->trace(2);
my $sth=$dbh->prepare(qq{SELECT name from emp where ID = ?});
$sth->execute(qq("ABC123"));
$dbh->trace(0);
##
##
SELECT name from emp where ID = "'ABC123'";