my %id = (bananas => 456,
          oranges =>  23,
          peaches => 897236,
          kiwis   => 3726,
         );
my @replaces = ('kiwis','oranges','bananas','bananas');
for my $i (0 .. $#replaces) {
    $replaces[$i] = $id{$replaces[$i]};
}