Its strange issue I am facing. 

Is there a possibility for a function not being called?

My part of the program flow is something like this: 

open(FH,"logfile.txt") or die ("can't open");
print FH "Before calling dumphash \n";
dumphash("", $rh_article);         -- Function Call

## FUNCTION:
sub dumphash {                  -- Function Definition 

my $prefix  = shift;
my $rh      = shift;          
print FH "Inside FUNCTION : dumphash \n";
Other statements here…

}

### End dumphash
print FH "After dumphash function \n";

Output 98% time:
Before calling dumphash
Inside FUNCTION : dumphash
After dumphash function

Outout Occasionaly:

Before calling dumphash
After dumphash function

-Sivakumar