#       $tot += $val;
        $tot += ( split /:/, $val )[0];