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;
    if ( defined $hash{"${attr}${postfix}"} ) {
       $$store = $hash{"${attr}${postfix}"};
    } else {
        die "Missing required config data: ${attr}${postfix}";
    }
}