my ( $loops, $cnt );
printf "%4d %4d %4d %4d %4d\n", 100,50,20,10,5;

for (my $e5=0; $e5<=100; $e5+=10 ) {
  for (my $e10=0; $e10<=100-$e5; $e10+=10 ) {
    for (my $e20=0; $e20<=100-$e10-$e5; $e20+=20 ) {
      for (my $e50=0; $e50<=100-$e20-$e10-$e5; $e50+=50 ) {
        for (my $e100=0; $e100<=100-$e50-$e20-$e10-$e5; $e100+=100 ) {
          $loops++;
          if ( $e5+$e10+$e20+$e50+$e100 == 100 ) {
            printf "%4d %4d %4d %4d %4d\n",$e100/100,$e50/50,$e20/20,$e10/10,$e5/5;
            $cnt++;
          }
        }
      }
    }
  }
}
print "\n$cnt possibilities in $loops loops\n";
__DATA__
 100   50   20   10    5
   1    0    0    0    0
   0    2    0    0    0
   0    0    5    0    0
   0    1    2    1    0
   0    0    4    2    0
   0    1    1    3    0
   0    0    3    4    0
   0    1    0    5    0
   0    0    2    6    0
   0    0    1    8    0
   0    0    0   10    0
   0    1    2    0    2
   0    0    4    1    2
   0    1    1    2    2
   0    0    3    3    2
   0    1    0    4    2
   0    0    2    5    2
   0    0    1    7    2
   0    0    0    9    2
   0    0    4    0    4
   0    1    1    1    4
   0    0    3    2    4
   0    1    0    3    4
   0    0    2    4    4
   0    0    1    6    4
   0    0    0    8    4
   0    1    1    0    6
   0    0    3    1    6
   0    1    0    2    6
   0    0    2    3    6
   0    0    1    5    6
   0    0    0    7    6
   0    0    3    0    8
   0    1    0    1    8
   0    0    2    2    8
   0    0    1    4    8
   0    0    0    6    8
   0    1    0    0   10
   0    0    2    1   10
   0    0    1    3   10
   0    0    0    5   10
   0    0    2    0   12
   0    0    1    2   12
   0    0    0    4   12
   0    0    1    1   14
   0    0    0    3   14
   0    0    1    0   16
   0    0    0    2   16
   0    0    0    1   18
   0    0    0    0   20

50 possibilities in 197 loops