>>525
use Getopt::Std;
getopt('abcde',\%opt);
print "OK\n" if ( keys(%opt) >= 2 );

print "$_ = $opt{$_}\n" for (keys %opt); # 表示 :)

ハードコードなくした。