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