$filename = $hash{"LIS_FILE"} if($node eq "sam");
$filename = $hash{"LIS_FILE_TEST"} if($node eq "cad2");

##</code><code>##

my $filename = $hash{LIS_FILE};
   $filename = $hash{LIS_FILE_TEST} if $node eq 'cad2';

##</code><code>##

my $filename = $node eq 'sam' ? $hash{LIS_FILE} : $hash{LIS_FILE_TEST}; 

##</code><code>##

my ($arg,         $arg2,        
    $argument,    $another_arg,
    $yet_another, $and_another, 
    $still_more,  $last_argument ) = @_;

##</code><code>##

# prospect_id
my $prosp_id = shift @_;

##</code><code>##

$line = <IN>;
while(<IN>){
    $line .= $_;
}