GetOptions 'input=s{0,}'  =>  \my @input,
           'na'           =>  \my $na,
           'nd'           =>  \my $nd,
           'nc'           =>  \my $nc,
           'des=s'        =>  \my $des,
           'r=i'          =>  \my $r;