Perl-MySQL

есть SELECT и вывод из таблицы:print"

";while (my @row = $sth1->fetchrow_array){print"prepare($query1);$sth1->execute(@p);========Ругается, подскажите pls что я делаю неправельно, заранее благодарен