use strict; use warnings; my $critical_failures = _analyze_test_logs (); print STDERR "Count of critical failures: $critical_failures->{count}\n"; if($critical_failures->{count} != 0){ # line 183 print "Condition true" } else { print "Condition false" } sub _analyze_test_logs { my $critical_failures = 0; my %critical_failures; $critical_failures{count} = 0; $critical_failures{count} = $critical_failures; if($critical_failures{count} == 0){ print STDERR "The count of critical failures is 0.\n"; } return \%critical_failures; }