my @new = qw(4 5 6 7);
my %old = qw(1 a 2 b 3 c 4 d 5 f);

my %new;
$new{$_} = $old{$_} for @new;