q// isn't interpolated - so $a1 (for example) will get passed into the SQL string as (literally) "$a1", not as "nome".

Try changing q// for qq//, which does interpolate variables, and that should hopefully solve the problem.

See perldoc for more info about the string quoting operators.

Hope that helps ..
-- Foxcub

Update: Clarified stuff a little.