my @a = map {$_->[0]} @{$sth->fetchall_arrayref};