Select Code to Download

my $column = $sth->fetchrow_array();

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'";