##
$VAR1 = '-933';
$VAR1 = '-1039';
##
##
Argument "^\-933" isn't numeric in subtraction (-) at mycode.pl line 115.
Argument "^\-1039" isn't numeric in subtraction (-) at mycode.pl line 115.
##
##
my $some_string = "0,-933";
my ($id1,$n1) = split(",",$some_string);
##
##
This is perl, v5.8.5 built for i386-linux-thread-multi