>511 こんなんどうでしょ？
use Getopt::Std;
getopt('abcde', \%opt);
print "OK\n" if(2 <= grep { $opt{$_} > 0 } a..e);

シンボリックリファレンス使うのがやだからちょっと変えた。