... ... ... ### use XML::Simple; my $Macaddress = param("macaddress"); my $conf = "/home/ember/devices/$Macaddress/$Macaddress.xml"; # create object my $xmlfile = new XML::Simple (ForceArray=>1); $xml = $xmlfile->XMLin($conf); $Passed = 0; $Warnings = 0; $Failed = 0; foreach my $TCresult (@{$xml->{tc}}){ if ($TCresult->{result} eq 'Passed'){$Passed++;} if ($TCresult->{result} eq 'Warnings'){$Warnings++;} if ($TCresult->{result} eq 'Failed'){$Failed++;} }