use POSIX qw[ fmod ];;
print fmod( $_, 100 ) for 12300, 12301, 12399;;
0
1
99