my $sth = $DBH->prepare('
   SELECT DISTINCT AGE 
   FROM USERS 
   WHERE NAMES = ?');
$sth->execute('John');

my $records = $sth->fetchall_arrayref;

for my $record (@$records){
  printf "%d\n", $record->[0]; # AGE field
}