This seems to do what you want. A single advisement - $service and $bundle both look like Perl scalars - these scalars will not interpolate into a single quoted string, as you have them. As these (possible) variables are also not defined in your script, then I think that the single quotes are probably intentional - but you might want to make sure.

Also, I don't know a thing about ksh, but I am pretty sure that with this ratio of embedded Perl to ksh, then this might profitably be rewritten as a pure Perl program, also helping you learn the language.

Cheers,
Erik