while ( @p = $sth->fetchrow_array ) { print "MySQL: @p\n"; }