my @parts = (100, 50, 20, 10, 5, 1); #### my @parts = (100, 50, 20, 10, 5, 2, 1); #### my @parts = (50, 25, 10, 5, 1); #### (1 ten), (2 5's), (1 5 and 5 1's), and (10 1's)