my $n1 = '-933';
my $n2 = '-1039';

my $dif = $n1 - $n2;
print $dif . "\n";