while (my @result = $sth->fetchrow_array()) {
        print "<input type=text name=address value=@result[0]>"
}