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"; } }