#!/usr/bin/perl

use warnings;
use strict;

my $num = "1,002,345";

my $total = $num + 1000;