`perldoc perlsyn', ?:, 78752 ! perltutorial ! How to RTFM

local $\="\n";

for $bar ( 0, 1, 2 ) {
    print
        "$bar => ",
        $bar > 0
        ? $bar > 1
          ? "male"
          : "female"
        : "robot";
}
__END__
0 => robot
1 => female
2 => male
[download]

You should also read `perldoc perlop', cause "=" is not "==".

MJD says you can't just make shit up and expect the computer to know what you mean, retardo! I run a Win32 PPM repository for perl 5.6x+5.8x. I take requests. ** The Third rule of perl club is a statement of fact: pod is sexy.