perl - ハッシュ内の重複を見つけ、新しいハッシュにグループ化して保存します

Question

次のハッシュがあり、最上位のハッシュ値6との間の重複を見つける必要があり4ます。私はいくつかの解決策を試してみましたが役に立ちませんでした.Perlの構文に慣れていないため、機能しません.

私が持っているハッシュ

$VAR1 = { 
    '6' => [ '1000', '2000', '4000' ],
    '4' => [ '1000', '2000', '3000' ]
}; 

必要なハッシュ

$VAR1 = {
    '6' => ['4000'],
    '4' => ['3000'],
    'Both' => ['1000','2000']
}