# call as ReportFileFound({ filename => $fn, # imagefile => $if, # linenum => $ln, # bBuildFilePath => $bBFP, }); sub ReportFileFound { my $args_ref = shift; # use $args_ref->{filename} for $filename