foreach my $ix(1..10) { $var=($ix%2? $value1:$value2); $var=($ix%s? $value2:$value1);