my $records = $sth->fetchall_arrayref; my $list = join ' ',map{$_->[0]}@$records; print "Content-type: text/html\n\n"; print < Untitled Document

Age list

$list

END_HTML