sunorccws04 ~$ cat tpl ; ./tpl
#!/usr/bin/perl
use strict;
my ($foo, $y);
sub showme;

foreach $y ( 1..10) {
    $foo = $y;
    print showme(), " is the x value\n";
}

sub showme {
        my $x;
        $x = $y if ($foo %2); # might as well mix up some T/F
}
 is the x value
0 is the x value
 is the x value
0 is the x value
 is the x value
0 is the x value
 is the x value
0 is the x value
 is the x value
0 is the x value