>>431と>>432を合わせて無理矢理grepも使ってみた

my %a = map {$_, $request{$_}} grep {/^hoge|fuga$/} keys %request;