@a = (1, 2, 3, 4);
@b = (6, 7, 10, 30, @a);

$a = sprintf "WHERE id NOT IN (%s)" , join(",",@a);
$b = sprintf "WHERE id NOT IN (%s)" , join(",",@b);

print $a ."\n";
print $b ."\n";