Yeah, that doesn't compile.
You're missing a / near your if statement.
Also, you cannot embed such an if statement in there.
Try this on for size:

sub option_menuitems {
# create the menu items for the Options menu.
#############################################    
    [
      [qw/command/, 'Create Consensus', qw/-accelerator Ctrl-c -comman
+d/=> \&create_consensus],
      '',
      [
          command => 'View Text 1',
          -accelerator => 'Ctrl-i',
          ( $consensus_created == 0 ) ? qw(-state disabled) : (),
           -command => \&view_text1
       ],
      [qw/command/, 'View Text 2', qw/-accelerator Ctrl-r -command/=> 
+\&view_text2],
    ];
}  # end of option_menuitems
[download]

MJD says you can't just make shit up and expect the computer to know what you mean, retardo! ** The Third rule of perl club is a statement of fact: pod is sexy.