in reply to pulling more data from an array

Just have a feeling that you're overcomplicating the nature of the problem. Are you just trying to replace pub1 or admin with Bob and then join some lines?
the hardest line to type correctly is: stty erase ^H

In Section Seekers of Perl Wisdom