($sql = $templ) =~ s/#LIST#/join ',', map { $_->[0] } @res/e;