use strict; use warnings; use XML::Twig; my $xml = < ##

##

Key3384780826200.7114.285714285714
Reconcile3017780622-701.4Insufficient Information
Training338477654-05.1Non-Billable
Management301777893-04.4Non-Billable
Break337933843-00.2Non-Billable
Excess overload3379775701410.56.66666666666667
Management312388898-00.5Non-Billable
Management312322304-00.3Insufficient Information
Management312311121-01.4Non-Billable
Adapt31237814308-00.3Insufficient Information
Import341776584App K41.011.4285714285714
Break312322732-00.450.65687
key3123781430803.345.5544
Supervision319254281-04.0Non-Billable

##

##


XML

my $t= XML::Twig->new (twig_roots => {emp => \&emp, prod => \&prod});
my %emp;
my $currEmp;

$t->parse ($xml);

print "$_ - $emp{$_}\n" for sort keys %emp;


sub emp {
    my ($t, $data) = @_;
   
    $currEmp = $data->trimmed_text ();
    $emp{$currEmp} ||= '';
}


sub prod {
    my ($t, $data) = @_;
    my $text = $data->trimmed_text ();
    
    return if $text !~ /^\d+(\.\d*)?/;
    $emp{$currEmp} ||= 0;
    $emp{$currEmp} += $text;
}

##

##

3017 - 
3123 - 96.21127
3192 - 
3379 - 6.66666666666667
3384 - 114.285714285714
3417 - 11.4285714285714