Select Code to Download

use strict;
use warnings;
...
    push @results, join ' ', map {"\$$values[$_][0] x $values[$_][1]"}
+ @denoms;
    return;
}

$1 x 100
$2 x 1 $1 x 98
...
$50 x 2
$100 x 1
4563 combinations found