It should be more readable to do it like this:

my %hFields;

while ( $line =~ / \( (\d+) \* ([^)]+) \) /gx ) {

    $hFields{ $2 } += $1;

    }
[download]