use strict;
use warnings;

for my $bool ( 0 .. 1 )
{
    my $name = 'bob' if $bool;
    print "($name)\n";
}