my $L = ; my $M = ; my $N = ; my $total = $L * 100 + $M * 25 + $N; my $b = int($total / 1000); my $mod = $total % 1000; my $l = int($mod / 100); $mod = $mod % 100; my $m = int($mod / 25); my $n = $mod % 25; my $coins = $l + $m + $n; print $coins;