$bakjobs->{"$2"}{"dbt"} = $1; 
$bakjobs->{"$2"}{"cdt"} =$3; 

##</code><code>##

 
#!/usr/bin/perl  
my %bakjobs;  

&cdtcall(\%bakjobs); 

sub cdtcall(\%) { 
    local($bakjobs) = shift; 
    local($file); 
    open (FILE, "./HD/PQ/c.bak"); 
    while (<FILE>) { 

	if ( /^BAK(\w+)+\s+([\w\_]+)\s*/i ) { 
	    $bakjobs->{"$2"}{"dbt"} = $1; 
	    $bakjobs->{"$2"}{"cdt"} =$3; 
	} 
    } 
    close (FILE); 
}