use strict;
use warnings;

my $x='baz';
my $y='moo';

for (1..10) {
        $_>5 ? $x='foo' : $y='bar';
        print "x=$x, y=$y\n";
}

# re-initialize vars
print "----------\n";
$x = 'baz'; 
$y = 'moo';

# the above loop is functionally equivalent to:
for (1..10) {
        ($_>5 ? $x : $y) = 'bar';
        print "x=$x, y=$y\n";
}