my %old = (
  1 => a,
  2 => b,
  3 => c,
  4 => d,
  5 => f,
);

my @keys = qw(4 5 6 7);  #Keys to copy from the old to the new hash

my %new;
@new{ @keys } = @old{ @keys };