Quote

$string_result=work_with_file($_, $fh, \%hash);

sub work_with_file {
my ( $filename, $fh, %hash) = @_;
....
...
$hash{$dt} = $lines if $errorFound;
return $string_result = "!!!!!!!"
}