my $val = (-7)%4; print "ANS1 = $val\n";