for my $line (@lines) {
    for my $find(sort {length($b) <=> length($a)} keys %ids) {
     $line =~ s/$find/$ids{$find}/g;
  }
}