Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
0
#Пример раз
my %parse_hash = (
$sub_dir => $dir,
$sub_style_dir => $style_dir,
$sub_image_dir => $image_dir
);
#Пример два
...
elsif ($event eq $Event_View_Par){
print &ViewPar(%Query);
}
elsif ($event eq $Event_View_All){
print &ViewPar(%Query);
}
elsif ($event eq $Event_View_Asset){
print &ViewAsset(%Query);
}
Пример 1: В качестве ключей хэша переменные, которые определены в другом файле.
Пример 2: переменные $Event_View* определены в другом, используются только здесь и больше нигде
И так по всему коду
Задалбывает всё время переключаться alt-табом на файл, смотреть на определение переменных
Запостил: 
Oleg_quadro,
(Updated )
определение констант в отдельном файле - это, имхо, нормальная практика.