That needlessly makes operand evaluation order relevant. Change

  my @keys;
  @new{ @keys } = @orig{ @keys = grep /[adf]/, keys %orig };
[download]

to

  my @keys = grep /[adf]/, keys %orig;
  @new{ @keys } = @orig{ @keys };
[download]

and you have simpler, clearer code.