although I'd like to know what the issue is by using perl ajax.

What does that mean?

One issue I see is about style/maintainability, using "\"" where you could have saved yourself considerable typing effort by using alternate delimiter qq{"} , or using a template

The more important issue, is you're trying to debug html/javascript inlined in a perl program -- get rid of all non-html non-javascript parts, get a copy of Firebug, and figure out the html/js separately before inserting it someplace else

Also, trying to debug javascript through perlmonks isn't likely to succeed