Select Code to Download

use strict;
use warnings;
...
        ($_>5 ? $x : $y) = 'bar';
        print "x=$x, y=$y\n";
}

x=baz, y=bar
x=baz, y=bar
...
x=bar, y=bar
x=bar, y=bar
x=bar, y=bar