print remaining (1000, 10, $_), "\n" for qw (10, 20, 30, 40);
500
250
125
62.5