А в SQL Server 2008 встроено автозаполнение / IntelliSense.
Возможно, вам придется удалить лишние пробелы:
print "\n[*] Query : $select{query}";
С пробелом после $ select
, Perl считает, что вы закончили интерполяцию этой переменной, и трактует следующий текст (включая фигурные скобки) буквально.