my $filename = "";
$filename = $hash{"LIS_FILE"} if($node eq "sam");
$filename = $hash{"LIS_FILE_TEST"} if($node eq "cad2");
chomp $filename;
my $htmfilename = "";
$htmfilename = $hash{"HTM_FILE"} if($node eq "sam");
$htmfilename = $hash{"HTM_FILE_TEST"} if($node eq "cad2");
chomp $htmfilename;
my $sqt_path = "";
$sqt_path = $hash{"SQT_PATH"} if($node eq "sam");
$sqt_path = $hash{"SQT_PATH_TEST"} if($node eq "cad2");
chomp $sqt_path;
my $database_name = "";
$database_name = $hash{"DB_NAME"} if($node eq "sam");
$database_name = $hash{"DB_NAME_TEST"} if($node eq "cad2");
chop $database_name;

my $mail_server_name = "";
$mail_server_name = $hash{"MAIL_SERVER"} if($node eq "sam");
$mail_server_name = $hash{"MAIL_SERVER_TEST"} if($node eq "cad2");
chomp $mail_server_name;

##</code><code>##

my $postfix = '';
if ( $node eq 'cad2' ) {
   $postfix = '_TEST';
}

my $attrlist = { filename => 
                    $hash{"LIS_FILE${postfix}"},
                 htmfilename => 
                    $hash{"HTM_FILE${postfix}"},
                 sqt_path => 
                    $hash{"SQT_PATH${postfix}"},
                 database_name => 
                    $hash{"DB_NAME${postfix}"},
               mail_server_name => 
                    $hash{"MAIL_SERVER${postfix}"}
                };

##</code><code>##

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}"};

}

##</code><code>##

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}";
    }
}