print ""; while(my $ref = $sth->fetchrow_arrayref) { print ""; print ""; print ""; } print "
$ref->[1]
";