ничего не понимаю:(

[glebushka]

Написал скрипт.
После переноса на другой хостинг при запуске скрипт виснет:(.
И запарывается вот на каком коде (всё лишнее убрано):
while($data=$sth->fetchrow_arrayref){
$text.=qq{
$spisok_param{sub0}
$spisok_param{sub1}
};
}
А вот так работает:
while($data=$sth->fetchrow_arrayref){
$text.=qq{
$spisok_param{sub0}
};
}
И так работает:
while($data=$sth->fetchrow_arrayref){
$text.=qq{
if(!$spisok_param{sub1}){$spisok_param{sub1}="";}
if(!$spisok_param{sub0}){$spisok_param{sub0}="";}
$spisok_param{sub0}
$spisok_param{sub1}
};
}

Впервые с таким встречаюсь... В чём может быть дело?
Значения в хеш получаю следующим образом
my @spisok_param=("sub0","sub1");
foreach(@spisok_param){$spisok_param{$_}=$Objekt->param($_);}

[ondr]

Что в логах?

[glebushka]

ondr:
Что в логах?

"Premature end of script headers"

[NeoNox]

найди отличия:
$spisok_param{sub0}$spisok_param{sub1}
$spisok_param{sub0};$spisok_param{sub1};

[glebushka]

NeoNox:
найди отличия:
$spisok_param{sub0}$spisok_param{sub1}
$spisok_param{sub0};$spisok_param{sub1};

да, вижу отличия:)
Извиняюсь, конечно не совсем корректно я задал вопрос, в оригинале в цикле вызвается подпрограмма:
$text.=&UTIL::very_small_form("","editrazdel",$spisok_param{sub0},$spisok_param{sub1},$spisok_param{sub2},$$data[0]);
Вообще мистика какая-то:( Сейчас я тупо скопировал подпрограмму целиком, как была в исходном файле, и скрипт перестал виснуть...