#!/usr/bin/perl

use warnings;
use strict;

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

my $total = $num + 1000;

##</code><code>##

perl test.pl
Argument "1,002,345" isn't numeric in addition (+) at test.pl line 8.