sub SMSBcastCDR 
{
       #doing operation on files
}

sub SMSCDR
{
     #doing operation on files
}

LINKS:
foreach my $linkarray (1 .. 2) 
{
	$pm->start and next LINKS; # do the fork
	
	if ($first == 1)
	{
		my @cdr_list1 = `ls $cdr_directory/SMSBcastCDR_*_$bcat_cdrdate\_*.log`;
		print "cdrs_file1 = @cdr_list1\n";
		SMSBcastCDR(@cdr_list1);
		$first++;
	}
	if ($first == 2)
	{
                my @smsc_cdr_list=`ls $smscdr_directory/SMSCDR_P*_$cdrdate*.log`;
		SMSCDR(@smsc_cdr_list);
	}
	$pm->finish; # do the exit in the child process
}
$pm->wait_all_children;