#!/usr/bin/perl

use strict;
use warnings;
use XML::Simple;
use Data::Dumper;

my $file = './test.xml';
my $ref = XMLin($file);

for my $coverage(@{$ref->{coverage}}){
    (my $type = $coverage->{type}) =~ s/, %$//;
    print $type," -- ",$coverage->{value},"\n";
}