while ( my ( $k, $v ) = each %opts ) {
    for ($k) {
        if    (/h/) { ...; }
        elsif (/v/) { ++$verbose; }
        elsif (/i/) { $infile = $v; }
        else        { die "*** BUG: no handler for -$k.\n"; }
    }
}