{ use integer; $where += 0; }
        my $choose = $words[$where];
        unless ($word) {
            $choose =~ /^(.)(.*)$/;
            $choose = uc($1) . $2;
        }