sub x{ my $v=shift; my $t=0; $t += !!($v%$_) for @_; return $t!=@_ };;

sub fn{ my$n; x($_, @_) and $n+=$_ for 1 .. shift; $n };;

print fn( 10, 3, 5 );;
33

print fn( 10, 3, 5, 7 );;
40

print fn( 100000, 3, 5, 7, 74017, 74027, 74047, 74077 );;
2714660445