$p1 = ... # Price of figures of type 1
$p2 = ... # Price of figures of type 2
$p3 = ... # Price of figures of type 3
$budget = ... # Total budget

for (my $i1=0; $i1 * $p1 <= $budget; $i1++) {
    for (my $i2=0; $i2 * $p2 <= $budget - $i1 * $p1; $i2++) {
        for (my $i3=0; $i3 * $p3 <= $budget - $i1 * $p1 - $i2 * $p2; $i3++) {
            print "You can buy $i1 type 1 + $i2 type 2 + $i3 type 3\n";
        }
    }
}