my $d; 1 ? my $c : $d = 'Hi';