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 #### 3384 - 114.285714285714 3379 - 3017 - 3379 - 6.66666666666667 3123 - 48.105635 3417 - 11.4285714285714 3192 - #### while() { for my $a(0..$#inlst) { if($_ =~ /@inlst[$a]<\/emp>/) { $_ =~ /(.+?)<\/prod>/g; $prod=$1; if($prod > 0) { $sum=$sum+$prod; } } } print "@inlst[$a]\t$sum\n"; } }