my %hFields;

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

    $hFields{ $2 } += $1;

    }