my ($filename, $htmfilename, 
    $sqt_path, $database_name, 
    $mail_server_name) = ('', '', '', '', '');
my @refs = (\$filename, \$htmfilename, 
            \$sqt_path, \$database_name,
            \$mail_server_name);

foreach my $attr ( qw( LIS_FILE HTM_FILE SQT_PATH 
                       DB_NAME MAIL_SERVER ) ) 
{
    my $store = shift @refs;
    $$store = $hash{"${attr}${postfix}"};

}