print do{ if( $_ ) { 'fred' }else{ 'bill' } } for 0, 1;;
bill
fred